Debugflag: $::keep_temp_files

diff --git a/SL/Form.pm b/SL/Form.pm
index c578b29..9417e76 100644 (file)
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -1438,7 +1438,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;

diff --git a/config/lx-erp.conf.default b/config/lx-erp.conf.default
index 21973a4..8e7280d 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;
 
+# 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;