Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision db96eb0c

Von Udo Spallek vor mehr als 18 Jahren hinzugefügt

  • ID db96eb0c952d33f9e27f5fb0e72da18fc653a71d
  • Vorgänger 22ac8f4a
  • Nachfolger 941fb8a1

Schalter für Latexvorlagen.
Der Ausdruck <%analyse%> in Latexvorlagen bewirkt,
dass die aus den Vorlagen generierten Latexdokumente
nicht geloescht, sondern im Verzeichnis user/
gespeichert werden.

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...)

Unterschiede anzeigen:

SL/Form.pm
783 783

  
784 784
    $par = "";
785 785
    $var = $_;
786

  
786
 
787
    # Switch <%analyse%> for template checking
788
    # If <%analyse%> is set in the template, you'll find the 
789
    # parsed output in the user Directory for analysing
790
    # Latex errors
791
    # <%analyse%> is a switch (allways off, on if set), not a Variable
792
    # Set $form->{analysing}="" for system state: never analyse.
793
    # Set $form->{analysing}="1" for system state: ever analyse.
794
    $self->{analysing} = "1" if (/<%analyse%>/ && !defined $self->{analysing});    
795
    
787 796
    $two_passes = 1 if (/\\pageref/);
788 797

  
789 798
    # { Moritz Bunkus
......
1108 1117
    close(FH);
1109 1118
  }
1110 1119

  
1111
  if ($self->{tmpfile}) {
1120
  if ($self->{analysing} eq "") {
1121
    if ($self->{tmpfile}) {
1112 1122

  
1113
    # strip extension
1114
    $self->{tmpfile} =~ s/\.\w+$//g;
1115
    my $tmpfile = $self->{tmpfile};
1116
    unlink(<$tmpfile.*>);
1123
      # strip extension
1124
      $self->{tmpfile} =~ s/\.\w+$//g;  
1125
      my $tmpfile = $self->{tmpfile};
1126
      unlink(<$tmpfile.*>);
1127
    }
1117 1128
  }
1118 1129

  
1119 1130
  chdir("$self->{cwd}");

Auch abrufbar als: Unified diff