![]() |
|< 1 2 >| | ![]() |
14 Einträge, 2 Seiten |
Quote# de.po
msgid "Hello Catalyst"
msgstr "Hallo Katalysator"
#de.pm
package MyApp::I18N::de;
use base 'MyApp::I18N';
%Lexicon = ( 'Hello Catalyst' => 'Hallo Katalysator' );
1;
1
2
3
4
5
6
7
# en.po
msgid "WELCOME_MESSAGE"
msgstr "Hello Catalyst"
# de.po
msgid "WELCOME_MESSAGE"
msgstr "Hallo Katalysator"
1
2
3
4
5
6
7
8
9
foreach my $par ($template->param()) {
if (uc($template->query(name => $par)) eq 'VAR') {
if (uc($par) =~ /^LANG_.*$/) {
$template->param($par => &App::lh()->maketext(uc($par)));
}
}
}
1
2
3
4
5
6
7
8
sub doTranslation {
my $text_ref = shift || return;
$$text_ref =~ s/(LANG_[A-Z,0-9,_]*)/&App::lh()->maketext(uc($1))/eig;
return;
}
![]() |
|< 1 2 >| | ![]() |
14 Einträge, 2 Seiten |