Revision 961d2d99
Von Moritz Bunkus vor fast 14 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 1250 | 1250 |
} |
| 1251 | 1251 |
|
| 1252 | 1252 |
map { $self->{"${_}"} = $myconfig->{$_}; } qw(co_ustid);
|
| 1253 |
map { $self->{"myconfig_${_}"} = $myconfig->{$_} } grep { $_ ne 'dbpasswd' } keys %{ $myconfig };
|
|
| 1253 | 1254 |
|
| 1254 | 1255 |
$self->{copies} = 1 if (($self->{copies} *= 1) <= 0);
|
| 1255 | 1256 |
|
Auch abrufbar als: Unified diff
Alle Variablen aus %myconfig beim Drucken als "myconfig_xyz" zur Verfügung stellen