Revision 8efe3525
Von Moritz Bunkus vor fast 19 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 758 | 758 |
$self->{"notes"} = $self->{ $self->{"formname"} . "notes" };
|
| 759 | 759 |
|
| 760 | 760 |
map({ $self->{"employee_${_}"} = $myconfig->{$_}; }
|
| 761 |
qw(email tel fax name signature)); |
|
| 761 |
qw(email tel fax name signature company address businessnumber));
|
|
| 762 | 762 |
|
| 763 | 763 |
open(IN, "$self->{templates}/$self->{IN}")
|
| 764 | 764 |
or $self->error("$self->{IN} : $!");
|
| SL/IS.pm | ||
|---|---|---|
| 304 | 304 |
|
| 305 | 305 |
$form->{paid} = $form->format_amount($myconfig, $form->{paid}, 2);
|
| 306 | 306 |
|
| 307 |
# myconfig variables |
|
| 308 |
map { $form->{$_} = $myconfig->{$_} }
|
|
| 309 |
(qw(company address tel fax signature businessnumber)); |
|
| 310 | 307 |
$form->{username} = $myconfig->{name};
|
| 311 | 308 |
|
| 312 | 309 |
$dbh->disconnect; |
Auch abrufbar als: Unified diff
Vorlagen: Einige Variablen zum Angestellten aus myconfig sollten nur mit dem Praefix "employee_" zur Verfuegung stehen, weil sie ansonsten andere Variablen (z.B. Faxnummer eines Lieferanten) ueberschreiben.