SL/DB/Manager/Customer.pm

   1 package SL::DB::Manager::Customer;
   2
   3 use strict;
   4
   5 use SL::DB::Helper::Manager;
   6 use SL::DB::Helper::Sorted;
   7 use SL::DB::Helper::Paginated;
   8 use SL::DB::Helper::Filtered;
   9 use base qw(SL::DB::Helper::Manager);
  10
  11 sub object_class { 'SL::DB::Customer' }
  12
  13 __PACKAGE__->make_manager_methods;
  14
  15 __PACKAGE__->add_filter_specs(
  16   all => sub {
  17     my ($key, $value, $prefix) = @_;
  18     return or => [ map { $prefix . $_ => $value } qw(customernumber name) ]
  19   }
  20 );
  21
  22 sub _sort_spec {
  23   return ( default => [ 'name', 1 ],
  24            columns => { SIMPLE => 'ALL',
  25                         map { ( $_ => "lower(customer.$_)" ) } qw(customernumber vendornumber name contact phone fax email street gln taxnumber business invnumber ordnumber quonumber)
  26                       });
  27 }
  28
  29 1;