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

use Module::Find instead of enumerating over the files

Browse source
This commit is contained in:
Graham Knop 2008-09-17 15:38:01 +00:00
parent 568fd0b608
commit a2757494af
6 changed files with 21 additions and 27 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lib/WebGUI/International.pm
View file

@ -18,6 +18,7 @@ package WebGUI::International;
use strict qw(vars subs);
use WebGUI::Session;
use WebGUI::Pluggable;
use Module::Find qw(findsubmod);
=head1 NAME
@ -185,15 +186,10 @@ Returns a hash reference to the languages installed on this WebGUI system.
sub getLanguages {
my ($self) = @_;
my $hashRef;
my $dir = $self->session->config->getWebguiRoot."/lib/WebGUI/i18n";
opendir my $dh, $dir or $self->session->errorHandler->fatal("Can't open I18N directory! ".$dir);
while (my $file = readdir($dh)) {
next
unless $file =~ s/\.pm$//;
my $language = $file;
$hashRef->{$language} = $self->getLanguage($language, "label");
for my $lang ( findsubmod 'WebGUI::i18n' ) {
$lang =~ s/^WebGUI::i18n:://;
$hashRef->{$lang} = $self->getLanguage($lang, "label");
}
closedir $dh;
return $hashRef;
}