From 3b2627d2d0a76aff76b0a434d5942bb8b1055967 Mon Sep 17 00:00:00 2001 From: Moritz Bunkus Date: Wed, 13 Jun 2007 14:00:44 +0000 Subject: [PATCH] =?utf8?q?Etwas=20mehr=20=C3=9Cbersicht.?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- SL/ReportGenerator.pm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/SL/ReportGenerator.pm b/SL/ReportGenerator.pm index 6a78c5370..306236fb2 100644 --- a/SL/ReportGenerator.pm +++ b/SL/ReportGenerator.pm @@ -385,8 +385,11 @@ END $html_file->print($form->parse_html_template('report_generator/pdf_report', $variables)); $html_file->close(); - my $gs = IO::File->new("\"${main::html2ps_bin}\" -f \"${cfg_file_name}\" \"${html_file_name}\" | " . - "\"${main::ghostscript_bin}\" -q -dSAFER -dNOPAUSE -dBATCH -sDEVICE=pdfwrite -sPAPERSIZE=${opt_paper_size} -sOutputFile=- -c .setpdfwrite - |"); + my $cmdline = + "\"${main::html2ps_bin}\" -f \"${cfg_file_name}\" \"${html_file_name}\" | " . + "\"${main::ghostscript_bin}\" -q -dSAFER -dNOPAUSE -dBATCH -sDEVICE=pdfwrite -sPAPERSIZE=${opt_paper_size} -sOutputFile=- -c .setpdfwrite -"; + + my $gs = IO::File->new("${cmdline} |"); if ($gs) { while (my $line = <$gs>) { print $line; -- 2.20.1