Alle Variablen aus %myconfig beim Drucken als "myconfig_xyz" zur Verfügung stellen

diff --git a/SL/Form.pm b/SL/Form.pm
index 56dc795..9d08e0e 100644 (file)
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -1250,6 +1250,7 @@ sub parse_template {
   }
 
   map { $self->{"${_}"} = $myconfig->{$_}; } qw(co_ustid);
+  map { $self->{"myconfig_${_}"} = $myconfig->{$_} } grep { $_ ne 'dbpasswd' } keys %{ $myconfig };
 
   $self->{copies} = 1 if (($self->{copies} *= 1) <= 0);