Revision 3c559a20
Von Moritz Bunkus vor fast 18 Jahren hinzugefügt
SL/Form.pm | ||
---|---|---|
774 | 774 |
|
775 | 775 |
map({ $self->{"employee_${_}"} = $myconfig->{$_}; } |
776 | 776 |
qw(email tel fax name signature company address businessnumber)); |
777 |
map({ $self->{"employee_${_}"} =~ s/\\n/\n/g; } |
|
778 |
qw(company address signature)); |
|
777 | 779 |
|
778 | 780 |
$self->{copies} = 1 if (($self->{copies} *= 1) <= 0); |
779 | 781 |
|
Auch abrufbar als: Unified diff
Einige Variablen wurden umbenannt und müssen auch an anderer Stelle behandelt werden.