Revision eaa5b3d6
Von Moritz Bunkus vor mehr als 14 Jahren hinzugefügt
locale/de/locales.pl | ||
---|---|---|
567 | 567 |
} |
568 | 568 |
|
569 | 569 |
while ($line =~ m/(?: # Start von Variante 1: LxERP.t8('...'); ohne darumliegende [% ... %]-Tags |
570 |
LxERP\.t8\( # LxERP.t8(
|
|
570 |
(LxERP\.t8)\( # LxERP.t8(
|
|
571 | 571 |
[\'\"] # Anfang des zu ?bersetzenden Strings |
572 | 572 |
(.*?) # Der zu ?bersetzende String |
573 | 573 |
[\'\"] # Ende des zu ?bersetzenden Strings |
... | ... | |
579 | 579 |
(.*?) # Der zu ?bersetzende String |
580 | 580 |
[\'\"] # Ende des zu ?bersetzenden Strings |
581 | 581 |
\s*\|\s* # Pipe-Zeichen mit optionalen Whitespace davor und danach |
582 |
\$T8 # Filteraufruf
|
|
582 |
(\$T8) # Filteraufruf
|
|
583 | 583 |
.*? # Optionale Argumente f?r den Filter |
584 | 584 |
\s* # Whitespaces |
585 | 585 |
[\-~#]* # Whitespace-Unterdr?ckung |
586 | 586 |
\%\] # Template-Ende-Tag |
587 | 587 |
) |
588 | 588 |
/ix) { |
589 |
my $string = $1 || $2; |
|
589 |
my $module = $1 || $4; |
|
590 |
my $string = $2 || $3; |
|
590 | 591 |
print "Found filter >>>$string<<<\n" if $debug; |
591 | 592 |
substr $line, $LAST_MATCH_START[1], $LAST_MATCH_END[0] - $LAST_MATCH_START[0], ''; |
592 | 593 |
|
593 | 594 |
$cached{$_[0]}{all}{$string} = 1; |
594 | 595 |
$cached{$_[0]}{html}{$string} = 1; |
595 | 596 |
$cached{$_[0]}{submit}{$string} = 1 if $PREMATCH =~ /$submitsearch/; |
596 |
$plugins{needed}->{T8} = 1; |
|
597 |
$plugins{needed}->{T8} = 1 if $module eq '$T8';
|
|
597 | 598 |
} |
598 | 599 |
|
599 | 600 |
while ("" ne $line) { |
Auch abrufbar als: Unified diff
Nur dann wegen fehlendem [% USE T8 %] warnen, wenn $T8 benutzt wird