From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Thu, 11 May 2017 11:00:32 +0000 (+0200)
Subject: Druckfunktion: beim Debuggen temporäre Datei für alle lesbar machen
X-Git-Tag: release-3.5.4~987
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=df50ddd58380e012429417f65026267727a61899;p=kivitendo-erp.git

Druckfunktion: beim Debuggen temporäre Datei für alle lesbar machen
---

diff --git a/SL/Form.pm b/SL/Form.pm
index 3e0c34395..470809f77 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -1023,6 +1023,8 @@ sub parse_template {
 
   # OUT is used for the media, screen, printer, email
   # for postscript we store a copy in a temporary file
+  my $keep_temp_files = $::lx_office_conf{debug} && $::lx_office_conf{debug}->{keep_temp_files};
+
   my ($temp_fh, $suffix);
   $suffix =  $self->{IN};
   $suffix =~ s/.*\.//;
@@ -1030,9 +1032,10 @@ sub parse_template {
     strftime('kivitendo-print-%Y%m%d%H%M%S-XXXXXX', localtime()),
     SUFFIX => '.' . ($suffix || 'tex'),
     DIR    => $userspath,
-    UNLINK => ($::lx_office_conf{debug} && $::lx_office_conf{debug}->{keep_temp_files})? 0 : 1,
+    UNLINK => $keep_temp_files ? 0 : 1,
   );
   close $temp_fh;
+  chmod 0644, $self->{tmpfile} if $keep_temp_files;
   (undef, undef, $self->{template_meta}{tmpfile}) = File::Spec->splitpath( $self->{tmpfile} );
 
   $out              = $self->{OUT};