Alle Vorkommen von "Readonly" entfernt
[kivitendo-erp.git] / 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;