SL/DB/Customer.pm

   1 package SL::DB::Customer;
   2
   3 use strict;
   4
   5 use SL::DB::MetaSetup::Customer;
   6 use SL::DB::Manager::Customer;
   7 use SL::DB::Helper::TransNumberGenerator;
   8 use SL::DB::Helper::CustomVariables (
   9   module      => 'CT',
  10   cvars_alias => 1,
  11 );
  12
  13 use SL::DB::VC;
  14
  15 __PACKAGE__->meta->add_relationship(
  16   shipto => {
  17     type         => 'one to many',
  18     class        => 'SL::DB::Shipto',
  19     column_map   => { id      => 'trans_id' },
  20     manager_args => { sort_by => 'lower(shipto.shiptoname)' },
  21     query_args   => [ module   => 'CT' ],
  22   },
  23   contacts => {
  24     type         => 'one to many',
  25     class        => 'SL::DB::Contact',
  26     column_map   => { id      => 'cp_cv_id' },
  27     manager_args => { sort_by => 'lower(contacts.cp_name)' },
  28   },
  29   business => {
  30     type         => 'one to one',
  31     class        => 'SL::DB::Business',
  32     column_map   => { business_id => 'id' },
  33   },
  34   custom_variables => {
  35     type           => 'one to many',
  36     class          => 'SL::DB::CustomVariable',
  37     column_map     => { id => 'trans_id' },
  38     query_args     => [ config_id => [ \"(SELECT custom_variable_configs.id FROM custom_variable_configs WHERE custom_variable_configs.module = 'CT')" ] ],
  39   },
  40 );
  41
  42 __PACKAGE__->meta->initialize;
  43
  44 __PACKAGE__->before_save('_before_save_set_customernumber');
  45
  46 sub _before_save_set_customernumber {
  47   my ($self) = @_;
  48
  49   $self->create_trans_number if $self->customernumber eq '';
  50   return 1;
  51 }
  52
  53 sub short_address {
  54   my ($self) = @_;
  55
  56   return join ', ', grep { $_ } $self->street, $self->zipcode, $self->city;
  57 }
  58
  59 1;