From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Thu, 13 Jan 2011 12:51:47 +0000 (+0100)
Subject: Beim Drucken via $form->prepare_for_printing Druckervorlagenkürzel berücksichtigen
X-Git-Tag: release-2.6.3~61^2~9^2~3^2~15^2~13
X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/commitdiff_plain/27cf17f02708d8ae41d0ab7ffcb5ddd36ab30785?ds=inline;hp=--cc

Beim Drucken via $form->prepare_for_printing Druckervorlagenkürzel berücksichtigen
---

27cf17f02708d8ae41d0ab7ffcb5ddd36ab30785
diff --git a/SL/Form.pm b/SL/Form.pm
index f5c0a8062..5cc9e1e6e 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -3566,8 +3566,9 @@ sub prepare_for_printing {
     $extension            = 'xls';
   }
 
-  my $email_extension = '_email' if -f "$self->{templates}/$self->{formname}_email${language}.${extension}";
-  $self->{IN}         = "$self->{formname}${email_extension}${language}.${extension}";
+  my $printer_code    = '_' . $self->{printer_code} if $self->{printer_code};
+  my $email_extension = '_email' if -f "$self->{templates}/$self->{formname}_email${language}${printer_code}.${extension}";
+  $self->{IN}         = "$self->{formname}${email_extension}${language}${printer_code}.${extension}";
 
   # Format dates.
   $self->format_dates($output_dateformat, $output_longdates,