From db96eb0c952d33f9e27f5fb0e72da18fc653a71d Mon Sep 17 00:00:00 2001
From: Udo Spallek <info@wissensvermittlung.com>
Date: Tue, 28 Feb 2006 16:04:03 +0000
Subject: [PATCH] =?utf8?q?Schalter=20f=C3=BCr=20Latexvorlagen.=20Der=20Aus?=
 =?utf8?q?druck=20<%analyse%>=20in=20Latexvorlagen=20bewirkt,=20dass=20die?=
 =?utf8?q?=20aus=20den=20Vorlagen=20generierten=20Latexdokumente=20nicht?=
 =?utf8?q?=20geloescht,=20sondern=20im=20Verzeichnis=20user/=20gespeichert?=
 =?utf8?q?=20werden.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

Bitte nicht vergessen, den Schalter nach dem Bearbeiten
wieder 'um zu legen', weil der Latexlauf ne Menge Output
erzeugt, und das users/ Verzeichnis unuebersichtlich wird.
Wenn <%analyse%> nicht mehr gewuenscht ist,
kann man einfach <%noanalyse%> schreiben, oder den Schalter
<%analyse%> aus dem Quelltext loeschen.

Systemintern kann diese Variable als $form->{analysed}
auf 1 oder "" gesetzt werden.
(evtl. fuer eine Ueberarbeitung der Latex Template
Bearbeitung in Lx ganz praktisch, weil Latexausgaben
direkt Online angezeigt werden könnten...)
---
 SL/Form.pm | 23 +++++++++++++++++------
 1 file changed, 17 insertions(+), 6 deletions(-)

diff --git a/SL/Form.pm b/SL/Form.pm
index fe9d2b862..b7b76e4c2 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -783,7 +783,16 @@ sub parse_template {
 
     $par = "";
     $var = $_;
-
+ 
+    # Switch <%analyse%> for template checking
+    # If <%analyse%> is set in the template, you'll find the 
+    # parsed output in the user Directory for analysing
+    # Latex errors
+    # <%analyse%> is a switch (allways off, on if set), not a Variable
+    # Set $form->{analysing}="" for system state: never analyse.
+    # Set $form->{analysing}="1" for system state: ever analyse.
+    $self->{analysing} = "1" if (/<%analyse%>/ && !defined $self->{analysing});    
+    
     $two_passes = 1 if (/\\pageref/);
 
     # { Moritz Bunkus
@@ -1108,12 +1117,14 @@ sub cleanup {
     close(FH);
   }
 
-  if ($self->{tmpfile}) {
+  if ($self->{analysing} eq "") {
+    if ($self->{tmpfile}) {
 
-    # strip extension
-    $self->{tmpfile} =~ s/\.\w+$//g;
-    my $tmpfile = $self->{tmpfile};
-    unlink(<$tmpfile.*>);
+      # strip extension
+      $self->{tmpfile} =~ s/\.\w+$//g;  
+      my $tmpfile = $self->{tmpfile};
+      unlink(<$tmpfile.*>);
+    }
   }
 
   chdir("$self->{cwd}");
-- 
2.20.1