oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix lookup of English language tags when translation fails

Browse source
This commit is contained in:
Colin Kuskie 2006-12-13 04:47:41 +00:00
parent a0d3c2d17c
commit bdb88b6c6d
5 changed files with 84 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

17
lib/WebGUI/International.pm
View file

@ -102,17 +102,14 @@ sub get {
$namespace =~ s/$safeRe//g;
my $cmd = "WebGUI::i18n::".$language."::".$namespace;
if (defined *{"$cmd\::I18N"}) { ##Symbol table lookup
our $table;
*table = *{"$cmd\::I18N"}; ##Create alias into symbol table
return $table->{$id}->{message}; ##return key
if (!defined *{"$cmd\::I18N"}) { ##Symbol table lookup
my $load = "use ".$cmd;
eval($load);
$self->session->errorHandler->warn($cmd." failed to compile because ".$@) if ($@);
}
my $load = "use ".$cmd;
eval($load);
$self->session->errorHandler->warn($cmd." failed to compile because ".$@) if ($@);
$cmd = "\$".$cmd."::I18N->{'".$id."'}{message}";
my $output = eval($cmd);
$self->session->errorHandler->warn("Couldn't get value from ".$cmd." because ".$@) if ($@);
our $table;
*table = *{"$cmd\::I18N"}; ##Create alias into symbol table
my $output = $table->{$id}->{message};
$output = $self->get($id,$namespace,"English") if ($output eq "" && $language ne "English");
return $output;
}