Debugflag: $::keep_temp_files

diff --git a/SL/Form.pm b/SL/Form.pm
index c578b2947a1d59f2fbd209ca0474db0e8cddb76f..9417e76c6634a2f210fbdaa114a321ab8d2b0218 100644 (file)
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -1438,7 +1438,7 @@ sub cleanup {
     close(FH);
   }
 
     close(FH);
   }
 

-  if ($self->{tmpfile}) {
+  if ($self->{tmpfile} && ! $::keep_temp_files) {

     $self->{tmpfile} =~ s|.*/||g;
     # strip extension
     $self->{tmpfile} =~ s/\.\w+$//g;
     $self->{tmpfile} =~ s|.*/||g;
     # strip extension
     $self->{tmpfile} =~ s/\.\w+$//g;

diff --git a/config/lx-erp.conf.default b/config/lx-erp.conf.default
index 21973a4546deb49324c758aa04dbdecbb5359254..8e7280d10e27ce632ba4a9c3099dbaba11bb7e33 100644 (file)
--- a/config/lx-erp.conf.default
+++ b/config/lx-erp.conf.default
@@ -111,4 +111,10 @@ $LXDebug::global_level = LXDebug::NONE;
 # weshalb sie normalerweise deaktiviert ist.
 $LXDebug::watch_form = 0;
 
 # weshalb sie normalerweise deaktiviert ist.
 $LXDebug::watch_form = 0;
 

+# Zum debuggen von Latexausgaben. Wenn diese Option auf 1 gesetzt wird, werden
+# temporäre Dateien, die bei der Erstellung von PDFs aus Latex erzeugt werden,
+# nach Abschluß der Erstellung oder im Fehlerfall nicht gelöscht, damit man sie
+# untersuchen kann.
+$::keep_temp_files = 0;
+

 1;
 1;