foreach als eindeutiges Wort für Schleifen innerhalb Latex-Druckvorlagen benutzen...

    if ((substr($text, $keyword_pos, 2) eq 'if') || (substr($text,
$keyword_pos, 3) eq 'for')) {

mach daraus mal

    if ((substr($text, $keyword_pos, 2) eq 'if') || (substr($text,
$keyword_pos, 3) eq 'foreach')) {

Die ganze Funktion ist leicht Mist und reagiert allergisch darauf, wenn
Variablennamen mit einem der Stichwörter "if", "foreach" oder "end"
anfangen. Leider enthält sie anscheinend weiterhin den Bug, dass nicht
auf "foreach" sondern auf "for" getestet wird, und das ist nun mal bei
"FORmat_info" am Anfang enthalten.

diff --git a/SL/Template/LaTeX.pm b/SL/Template/LaTeX.pm
index 8aac39dbbc32ff56785f56b564a02b98f0c371d7..eb99b1bb4193ec2330de40fe878c7af5f9be501f 100644 (file)
--- a/SL/Template/LaTeX.pm
+++ b/SL/Template/LaTeX.pm
@@ -132,7 +132,7 @@ sub find_end {
 
     my $keyword_pos = $pos - 1 + $tag_start_len;
 
-    if ((substr($text, $keyword_pos, 2) eq 'if') || (substr($text, $keyword_pos, 3) eq 'for')) {
+    if ((substr($text, $keyword_pos, 2) eq 'if') || (substr($text, $keyword_pos, 3) eq 'foreach')) {
       $depth++;
 
     } elsif ((substr($text, $keyword_pos, 4) eq 'else') && (1 == $depth)) {