Revision 7afe92af
Von Moritz Bunkus vor fast 9 Jahren hinzugefügt
| SL/DB/Contact.pm | ||
|---|---|---|
|
. join '', map { " ($_)" } grep $_, $self->cp_abteilung;
|
||
|
}
|
||
|
|
||
|
sub formal_greeting {
|
||
|
my ($self) = @_;
|
||
|
die 'not an accessor' if @_ > 1;
|
||
|
join ' ', grep $_, $self->cp_greeting, $self->cp_givenname, $self->cp_name;
|
||
|
}
|
||
|
|
||
|
1;
|
||
Auch abrufbar als: Unified diff
Brieffunktion: Umstellung Druck auf Template Toolkit
Damit wird auch alter Backendcode wie IS->get_customer() nicht mehr
benötigt.