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

fixed some i18n problems and moved http related functions out of session and into their own class

Browse source
This commit is contained in:
JT Smith 2004-06-27 23:56:39 +00:00
parent e531d8d5b2
commit f18f408efb
21 changed files with 444 additions and 211 deletions
Download patch file Download diff file Expand all files Collapse all files

52
lib/WebGUI/International.pm
View file

@ -31,6 +31,7 @@ This package provides an interface to the internationalization system.
use WebGUI::International;
$string = WebGUI::International::get($internationalId,$namespace);
$hashRef = WebGUI::International::getLanguage($lang);
%languages = WebGUI::International::getLanguages();
This package can also be used in object-oriented (OO) style.
@ -93,6 +94,47 @@ sub get {
}
#-------------------------------------------------------------------
=head2 getLanguage ( [ languageId , propertyName] )
Returns a hash reference to a particular language's properties.
=over
=item languageId
Defaults to "English". The language to retrieve the properties for.
=item propertyName
If this is specified, only the value of the property will be returned, instead of the hash reference to all properties. The valid values are "charset", "toolbar", and "label".
=back
=cut
sub getLanguage {
my $language = shift || "English";
my $property = shift;
my $cmd = "WebGUI::i18n::".$language;
my $load = "use ".$cmd;
eval($load);
unless ($@) {
$cmd = "\$".$cmd."::LANGUAGE";
my $hashRef = eval($cmd);
WebGUI::ErrorHandler::warn("Failed to retrieve language properties because ".$@) if ($@);
if ($property) {
return $hashRef->{$property};
} else {
return $hashRef;
}
} else {
WebGUI::ErrorHandler::warn("Language failed to compile: $language. ".$@);
}
}
#-------------------------------------------------------------------
=head2 getLanguages ( )
@ -110,15 +152,7 @@ sub getLanguages {
foreach my $file (@files) {
if ($file =~ /(.*?)\.pm$/) {
my $language = $1;
my $cmd = "WebGUI::i18n::".$language;
my $load = "use ".$cmd;
eval($load);
unless ($@) {
$cmd = "\$".$cmd."::I18N->{'label'}";
$hashRef->{$language} = eval($cmd);
} else {
WebGUI::ErrorHandler::warn("Language failed to compile: $language. ".$@);
}
$hashRef->{$language} = getLanguage($language,"label");
}
}
return $hashRef;