1 package SL::DB::Shipto;
5 use SL::DB::MetaSetup::Shipto;
7 our @SHIPTO_VARIABLES = qw(shiptoname shiptostreet shiptozipcode shiptocity shiptocountry shiptocontact
8 shiptophone shiptofax shiptoemail shiptodepartment_1 shiptodepartment_2);
10 __PACKAGE__->meta->make_manager_class;
14 my $text = join('; ', grep { $_ } (map({ $self->$_ } qw(shiptoname shiptostreet)),
17 qw(shiptozipcode shiptocity))));