From 27cf17f02708d8ae41d0ab7ffcb5ddd36ab30785 Mon Sep 17 00:00:00 2001 From: Moritz Bunkus Date: Thu, 13 Jan 2011 13:51:47 +0100 Subject: [PATCH] =?utf8?q?Beim=20Drucken=20via=20$form->prepare=5Ffor=5Fpr?= =?utf8?q?inting=20Druckervorlagenk=C3=BCrzel=20ber=C3=BCcksichtigen?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- SL/Form.pm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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, -- 2.20.1