From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Tue, 25 Jan 2011 10:57:09 +0000 (+0100)
Subject: Alle Variablen aus %myconfig beim Drucken als "myconfig_xyz" zur Verfügung stellen
X-Git-Tag: release-2.6.3~61^2~9^2~3^2~5^2
X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/commitdiff_plain/961d2d99a039706fd4fe76a6b3d5924761e5119a?ds=inline;hp=-c

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

961d2d99a039706fd4fe76a6b3d5924761e5119a
diff --git a/SL/Form.pm b/SL/Form.pm
index 56dc795e1..9d08e0ee8 100644
--- 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);