From: Bernd Bleßmann <bernd@kivitendo-premium.de>
Date: Mon, 22 Mar 2021 11:45:59 +0000 (+0100)
Subject: Mahnungen: PDF an Drucker schicken: Druckbefehl erst prüfen, dann verwenden
X-Git-Tag: kivitendo-mebil_0.1-0~9^2~404
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=a386ea48944a5fff408862f5c6622ddfd5cde736;p=kivitendo-erp.git

Mahnungen: PDF an Drucker schicken: Druckbefehl erst prüfen, dann verwenden
---

diff --git a/SL/DN.pm b/SL/DN.pm
index e9aa1ecf2..a4eb12769 100644
--- a/SL/DN.pm
+++ b/SL/DN.pm
@@ -849,10 +849,10 @@ sub melt_pdfs {
       $out = IO::File->new("| $form->{printer_command}");
     }
 
-    $::locale->with_raw_io($out, sub { $out->print($_) while <$in> });
-
     $form->error($main::locale->text('Could not spawn the printer command.')) unless $out;
 
+    $::locale->with_raw_io($out, sub { $out->print($_) while <$in> });
+
   } else {
     my $dunning_filename = $form->get_formname_translation('dunning');
     print qq|Content-Type: Application/PDF\n| .