Revision 79038417
Von Moritz Bunkus vor etwa 14 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 756 | 756 |
} |
| 757 | 757 |
$language = "de" unless ($language); |
| 758 | 758 |
|
| 759 |
if (-f "templates/webpages/${file}_${language}.html") {
|
|
| 760 |
if ((-f ".developer") && |
|
| 761 |
(-f "templates/webpages/${file}_master.html") &&
|
|
| 762 |
((stat("templates/webpages/${file}_master.html"))[9] >
|
|
| 763 |
(stat("templates/webpages/${file}_${language}.html"))[9])) {
|
|
| 764 |
my $info = "Developer information: templates/webpages/${file}_master.html is newer than the localized version.\n" .
|
|
| 759 |
if (-f "templates/webpages/${file}.html") {
|
|
| 760 |
if ((-f ".developer") && ((stat("templates/webpages/${file}.html"))[9] > (stat("locale/${language}/all"))[9])) {
|
|
| 761 |
my $info = "Developer information: templates/webpages/${file}.html is newer than the translation file locale/${language}/all.\n" .
|
|
| 765 | 762 |
"Please re-run 'locales.pl' in 'locale/${language}'.";
|
| 766 | 763 |
print(qq|<pre>$info</pre>|); |
| 767 | 764 |
die($info); |
| 768 | 765 |
} |
| 769 | 766 |
|
| 770 |
$file = "templates/webpages/${file}_${language}.html";
|
|
| 771 |
} elsif (-f "templates/webpages/${file}.html") {
|
|
| 772 | 767 |
$file = "templates/webpages/${file}.html";
|
| 768 |
|
|
| 773 | 769 |
} else {
|
| 774 | 770 |
my $info = "Web page template '${file}' not found.\n" .
|
| 775 | 771 |
"Please re-run 'locales.pl' in 'locale/${language}'.";
|
| ... | ... | |
| 849 | 845 |
my $input = join('', <$in>);
|
| 850 | 846 |
$in->close(); |
| 851 | 847 |
|
| 852 |
if ($main::locale) {
|
|
| 853 |
$input = $main::locale->{iconv}->convert($input);
|
|
| 854 |
} |
|
| 855 |
|
|
| 856 | 848 |
my $output; |
| 857 | 849 |
if (!$template->process(\$input, $additional_params, \$output)) {
|
| 858 | 850 |
print STDERR $template->error(); |
Auch abrufbar als: Unified diff
Es gibt keine explizit übersetzten Templates mehr.