X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/be6f6cfd8dc7def5356edd0c5aacb814b4baded1..e055700faea1906bea6c03184ba4516b57cac887:/SL/Form.pm

diff --git a/SL/Form.pm b/SL/Form.pm
index a753dbc40..0637e6ebb 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -1252,6 +1252,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);
 
@@ -1358,6 +1359,7 @@ sub parse_template {
       my $numbytes = (-s $self->{tmpfile});
       open(IN, $self->{tmpfile})
         or $self->error($self->cleanup . "$self->{tmpfile} : $!");
+      binmode IN;
 
       $self->{copies} = 1 unless $self->{media} eq 'printer';