From 597846d807398aa3ee870dcdfe1947623b450447 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Jan=20B=C3=BCren?= <jan@lx-office-hosting.de>
Date: Thu, 18 Nov 2010 10:32:52 +0100
Subject: [PATCH] =?utf8?q?foreach=20als=20eindeutiges=20Wort=20f=C3=BCr=20?=
 =?utf8?q?Schleifen=20innerhalb=20Latex-Druckvorlagen=20benutzen,=20Detail?=
 =?utf8?q?s:?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

    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.
---
 SL/Template/LaTeX.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/SL/Template/LaTeX.pm b/SL/Template/LaTeX.pm
index 8aac39dbb..eb99b1bb4 100644
--- 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)) {
-- 
2.20.1