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

Add a test for getting the whole language property hash.

Browse source 
Reformat the getLanguage method according to WGBP.
This commit is contained in:
Colin Kuskie 2007-12-28 00:15:15 +00:00
parent 44162ea113
commit abf56513c7
2 changed files with 17 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

27
lib/WebGUI/International.pm
View file

@ -141,20 +141,21 @@ sub getLanguage {
$file =~ s{::}{/}g;
$file .= '.pm';
eval{require $file};
unless ($@) {
$cmd = "\$".$cmd."::LANGUAGE";
my $hashRef = eval($cmd);
$self->session->errorHandler->warn("Failed to retrieve language properties because ".$@) if ($@);
if ($property) {
return $hashRef->{$property};
}
else {
return $hashRef;
}
}
else {
if ($@) {
$self->session->errorHandler->warn("Language failed to compile: $language. ".$@);
}
return;
}
$cmd = '$'.$cmd.'::LANGUAGE';
## no critic ProhibitStringyEval
my $hashRef = eval($cmd);
## use critic;
$self->session->errorHandler->warn("Failed to retrieve language properties because ".$@) if ($@);
if ($property) {
return $hashRef->{$property};
}
else {
return $hashRef;
}
}