From eaa5b3d60a5fe17cc1d4509c00a7772dccd70b97 Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Mon, 25 Jan 2010 16:31:02 +0100
Subject: [PATCH] Nur dann wegen fehlendem [% USE T8 %] warnen, wenn $T8
 benutzt wird

---
 locale/de/locales.pl | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/locale/de/locales.pl b/locale/de/locales.pl
index 1746fa671..d042be0d2 100755
--- a/locale/de/locales.pl
+++ b/locale/de/locales.pl
@@ -567,7 +567,7 @@ sub scanhtmlfile {
       }
 
       while ($line =~ m/(?:             # Start von Variante 1: LxERP.t8('...'); ohne darumliegende [% ... %]-Tags
-                          LxERP\.t8\(   #   LxERP.t8(
+                          (LxERP\.t8)\( #   LxERP.t8(
                           [\'\"]        #   Anfang des zu übersetzenden Strings
                           (.*?)         #   Der zu übersetzende String
                           [\'\"]        #   Ende des zu übersetzenden Strings
@@ -579,21 +579,22 @@ sub scanhtmlfile {
                           (.*?)         #   Der zu übersetzende String
                           [\'\"]        #   Ende des zu übersetzenden Strings
                           \s*\|\s*      #   Pipe-Zeichen mit optionalen Whitespace davor und danach
-                          \$T8          #   Filteraufruf
+                          (\$T8)        #   Filteraufruf
                           .*?           #   Optionale Argumente für den Filter
                           \s*           #   Whitespaces
                           [\-~#]*       #   Whitespace-Unterdrückung
                           \%\]          #   Template-Ende-Tag
                         )
                        /ix) {
-        my $string = $1 || $2;
+        my $module = $1 || $4;
+        my $string = $2 || $3;
         print "Found filter >>>$string<<<\n" if $debug;
         substr $line, $LAST_MATCH_START[1], $LAST_MATCH_END[0] - $LAST_MATCH_START[0], '';
 
         $cached{$_[0]}{all}{$string}    = 1;
         $cached{$_[0]}{html}{$string}   = 1;
         $cached{$_[0]}{submit}{$string} = 1 if $PREMATCH =~ /$submitsearch/;
-        $plugins{needed}->{T8}          = 1;
+        $plugins{needed}->{T8}          = 1 if $module eq '$T8';
       }
 
       while ("" ne $line) {
-- 
2.20.1