SL/DB/Shipto.pm

   1 package SL::DB::Shipto;
   2
   3 use strict;
   4
   5 use SL::DB::MetaSetup::Shipto;
   6
   7 our @SHIPTO_VARIABLES = qw(shiptoname shiptostreet shiptozipcode shiptocity shiptocountry shiptocontact
   8                            shiptophone shiptofax shiptoemail shiptodepartment_1 shiptodepartment_2);
   9
  10 __PACKAGE__->meta->make_manager_class;
  11
  12 sub displayable_id {
  13   my $self = shift;
  14   my $text = join('; ', grep { $_ } (map({ $self->$_ } qw(shiptoname shiptostreet)),
  15                                      join(' ', grep { $_ }
  16                                                map  { $self->$_ }
  17                                                qw(shiptozipcode shiptocity))));
  18
  19   return $text;
  20 }
  21
  22 1;