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

diff --git a/SL/Form.pm b/SL/Form.pm
index f5c0a806287884ee135c50439f57f933eff66aa8..5cc9e1e6ea688bd7d8ceb2e9beaba65de20b0982 100644 (file)
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -3566,8 +3566,9 @@ sub prepare_for_printing {
     $extension            = 'xls';
   }
 
     $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,
 
   # Format dates.
   $self->format_dates($output_dateformat, $output_longdates,