Revision 5828bfe5
Von Moritz Bunkus vor mehr als 15 Jahren hinzugefügt
| locale/de/locales.pl | ||
|---|---|---|
|
$plugins{needed}->{$plugin} = 1 if (first { $_ eq $plugin } qw(HTML LxERP JavaScript MultiColumnIterator));
|
||
|
}
|
||
|
|
||
|
while ($line =~ m/\[\% # Template-Start-Tag
|
||
|
[\-~#] # Whitespace-Unterdr?ckung
|
||
|
\s* # Optional beliebig viele Whitespace
|
||
|
[\'\"] # Anfang des zu ?bersetzenden Strings
|
||
|
(.*?) # Der zu ?bersetzende String
|
||
|
[\'\"] # Ende des zu ?bersetzenden Strings
|
||
|
\s*\|\s* # Pipe-Zeichen mit optionalen Whitespace davor und danach
|
||
|
\$T8 # Filteraufruf
|
||
|
.*? # Optionale Argumente f?r den Filter und Whitespaces
|
||
|
[\-~#] # Whitespace-Unterdr?ckung
|
||
|
\%\] # Template-Ende-Tag
|
||
|
/ix) {
|
||
|
print "Found filter >>>$1<<<\n";
|
||
|
$cached{$_[0]}{all}{$1} = 1;
|
||
|
$cached{$_[0]}{html}{$1} = 1;
|
||
|
$plugins{needed}->{T8} = 1;
|
||
|
substr $line, $-[1], $+[0] - $-[0], '';
|
||
|
}
|
||
|
|
||
|
while ("" ne $line) {
|
||
|
if (!$copying) {
|
||
|
if ($line =~ m|<translate>|i) {
|
||
| ... | ... | |
|
}
|
||
|
|
||
|
# copy back into global arrays
|
||
|
map { $alllocales{$_} = 1 } keys %{$cached{$_[0]}{all}};
|
||
|
map { $htmllocales{$_} = 1 } keys %{$cached{$_[0]}{html}};
|
||
|
map { $submit{$_} = 1 } keys %{$cached{$_[0]}{submit}};
|
||
|
map { $alllocales{$_} = 1 } keys %{$cached{$_[0]}{all}};
|
||
|
map { $htmllocale{$_} = 1 } keys %{$cached{$_[0]}{html}};
|
||
|
map { $submit{$_} = 1 } keys %{$cached{$_[0]}{submit}};
|
||
|
}
|
||
|
|
||
|
sub converthtmlfile {
|
||
Auch abrufbar als: Unified diff
Verwendung des kommenden T8-Filters zur Übersetzung erkennen.