SL/DB/Manager/Customer.pm

   1 package SL::DB::Manager::Customer;
   2
   3 use strict;
   4
   5 use SL::DB::Helper::Manager;
   6 use base qw(SL::DB::Helper::Manager);
   7
   8 use SL::DB::Helper::Sorted;
   9
  10 sub object_class { 'SL::DB::Customer' }
  11
  12 __PACKAGE__->make_manager_methods;
  13
  14 sub _sort_spec {
  15   return ( default => [ 'name', 1 ],
  16            columns => { SIMPLE => 'ALL',
  17                         map { ( $_ => "lower(customer.$_)" ) } qw(customernumber vendornumber name contact phone fax email street taxnumber business invnumber ordnumber quonumber)
  18                       });
  19 }
  20
  21 1;