Nur dann wegen fehlendem [% USE T8 %] warnen, wenn $T8 benutzt wird
authorMoritz Bunkus <m.bunkus@linet-services.de>
Mon, 25 Jan 2010 15:31:02 +0000 (16:31 +0100)
committerSven Schöling <s.schoeling@linet-services.de>
Mon, 28 Jun 2010 11:31:16 +0000 (13:31 +0200)
locale/de/locales.pl

index 1746fa6..d042be0 100755 (executable)
@@ -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) {