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