projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
t/helper/shipped_qty.t: doppelte deklaration umbenannt
[kivitendo-erp.git]
/
SL
/
Form.pm
diff --git
a/SL/Form.pm
b/SL/Form.pm
index
645d7a0
..
470809f
100644
(file)
--- a/
SL/Form.pm
+++ b/
SL/Form.pm
@@
-49,6
+49,7
@@
use Encode;
use File::Copy;
use IO::File;
use Math::BigInt;
use File::Copy;
use IO::File;
use Math::BigInt;
+use POSIX qw(strftime);
use SL::Auth;
use SL::Auth::DB;
use SL::Auth::LDAP;
use SL::Auth;
use SL::Auth::DB;
use SL::Auth::LDAP;
@@
-1022,16
+1023,19
@@
sub parse_template {
# OUT is used for the media, screen, printer, email
# for postscript we store a copy in a temporary file
# 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/.*\.//;
($temp_fh, $self->{tmpfile}) = File::Temp::tempfile(
my ($temp_fh, $suffix);
$suffix = $self->{IN};
$suffix =~ s/.*\.//;
($temp_fh, $self->{tmpfile}) = File::Temp::tempfile(
-
'kivitendo-printXXXXXX'
,
+
strftime('kivitendo-print-%Y%m%d%H%M%S-XXXXXX', localtime())
,
SUFFIX => '.' . ($suffix || 'tex'),
DIR => $userspath,
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;
);
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};
(undef, undef, $self->{template_meta}{tmpfile}) = File::Spec->splitpath( $self->{tmpfile} );
$out = $self->{OUT};