From: Sven Schöling <s.schoeling@linet-services.de>
Date: Mon, 6 Jan 2014 12:01:56 +0000 (+0100)
Subject: Globale Objekte auch ans Printsystem übergeben
X-Git-Tag: release-3.1.0beta1~22^2~59
X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/commitdiff_plain/893ae739a51281fb07628329f78984ef18857bc5?ds=inline;hp=-c

Globale Objekte auch ans Printsystem übergeben

Fix für #2382
---

893ae739a51281fb07628329f78984ef18857bc5
diff --git a/SL/Form.pm b/SL/Form.pm
index 04ac43c41..56acec2bf 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -1032,6 +1032,12 @@ sub parse_template {
   $self->{"myconfig_${_}"} = $myconfig->{$_} for grep { $_ ne 'dbpasswd' } keys %{ $myconfig };
   $self->{$_}              = $defaults->$_   for qw(co_ustid);
   $self->{"myconfig_${_}"} = $defaults->$_   for qw(address businessnumber co_ustid company duns sepa_creditor_id taxnumber);
+  $self->{AUTH}            = $::auth;
+  $self->{INSTANCE_CONF}   = $::instance_conf;
+  $self->{LOCALE}          = $::locale;
+  $self->{LXCONFIG}        = $::lx_office_conf;
+  $self->{LXDEBUG}         = $::lxdebug;
+  $self->{MYCONFIG}        = \%::myconfig;
 
   $self->{copies} = 1 if (($self->{copies} *= 1) <= 0);