X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/dc8f62cf5df4a7f8473e7d76fdd98846cea5721f..b7067f51a92af13c631333f093df50e97a1caed3:/SL/Form.pm
diff --git a/SL/Form.pm b/SL/Form.pm
index c578b2947..715385154 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -636,7 +636,6 @@ sub header {
$jsscript = qq|
-
@@ -1438,7 +1437,7 @@ sub cleanup {
close(FH);
}
- if ($self->{tmpfile}) {
+ if ($self->{tmpfile} && ! $::keep_temp_files) {
$self->{tmpfile} =~ s|.*/||g;
# strip extension
$self->{tmpfile} =~ s/\.\w+$//g;