kivitendo/SL/DB/Shipto.pm @ 5eb3a1b9
| 82515b2d | Sven Schöling | package SL::DB::Shipto;
|
||
use strict;
|
||||
use SL::DB::MetaSetup::Shipto;
|
||||
| dc04e2cb | Moritz Bunkus | our @SHIPTO_VARIABLES = qw(shiptoname shiptostreet shiptozipcode shiptocity shiptocountry shiptocontact
|
||
shiptophone shiptofax shiptoemail shiptodepartment_1 shiptodepartment_2);
|
||||
| 82515b2d | Sven Schöling | |||
__PACKAGE__->meta->make_manager_class;
|
||||
sub displayable_id {
|
||||
my $self = shift;
|
||||
my $text = join('; ', grep { $_ } (map({ $self->$_ } qw(shiptoname shiptostreet)),
|
||||
join(' ', grep { $_ }
|
||||
map { $self->$_ }
|
||||
qw(shiptozipcode shiptocity))));
|
||||
return $text;
|
||||
}
|
||||
1;
|