32 lines
542 B
Perl
32 lines
542 B
Perl
package Pear::LocalLoop::Schema::ResultSet::Category;
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use base 'DBIx::Class::ResultSet';
|
|
|
|
sub as_hash {
|
|
my ($self) = @_;
|
|
|
|
my %category_list = (
|
|
(
|
|
map { $_->id => $_->name, } $self->all
|
|
),
|
|
0 => 'Uncategorised',
|
|
);
|
|
return \%category_list;
|
|
}
|
|
|
|
sub as_hash_name_icon {
|
|
my ($self) = @_;
|
|
|
|
my %category_list = (
|
|
(
|
|
map { $_->name => $_->line_icon, } $self->all
|
|
),
|
|
0 => 'Uncategorised',
|
|
);
|
|
return \%category_list;
|
|
}
|
|
|
|
1;
|