36 lines
589 B
Perl
36 lines
589 B
Perl
package CharmBoard::Schema::Set::Categories;
|
|
|
|
use utf8;
|
|
use strict;
|
|
use warnings;
|
|
use experimental qw(try smartmatch);
|
|
|
|
use base 'DBIx::Class::ResultSet';
|
|
|
|
sub fetch_all {
|
|
my $_set = shift;
|
|
|
|
my $_fetch =
|
|
$_set->search({},
|
|
{order_by => 'cat_rank'});
|
|
|
|
return($_fetch->get_column('cat_id')->all)}
|
|
|
|
sub title_from_id {
|
|
my $_set = shift;
|
|
|
|
return(
|
|
$_set->search({'cat_id' => $_[0]})->
|
|
get_column('cat_name')->first)}
|
|
|
|
1;
|
|
|
|
__END__
|
|
=pod
|
|
=head1 NAME
|
|
CharmBoard::Schema::Set::Categories - DBIC ResultSet for
|
|
the categories table
|
|
|
|
=head1 SYNOPSIS
|
|
=head1 DESCRIPTION
|
|
=cut |