SL/DB/Manager/ReclamationReason.pm

   1 package SL::DB::Manager::ReclamationReason;
   2
   3 use strict;
   4
   5 use parent qw(SL::DB::Helper::Manager);
   6 use SL::DB::Helper::Paginated;
   7 use SL::DB::Helper::Filtered;
   8
   9 use SL::DB::Helper::Sorted;
  10
  11 sub object_class { 'SL::DB::ReclamationReason' }
  12
  13 __PACKAGE__->make_manager_methods;
  14 __PACKAGE__->add_filter_specs(
  15   all => sub {
  16     my ($key, $value, $prefix) = @_;
  17     return or => [ map { $prefix . $_ => $value } qw(reclamation_reason) ]
  18   },
  19 );
  20
  21 sub _sort_spec {
  22   return ( default => [ 'position', 1 ],
  23            columns => { SIMPLE => 'ALL' });
  24 }
  25 1;