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

fixed bug 654227

Browse source
This commit is contained in:
JT Smith 2002-12-17 04:42:12 +00:00
parent d241598851
commit 82c84b7000
12 changed files with 47 additions and 40 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lib/WebGUI/Operation/International.pm
View file

@ -171,11 +171,10 @@ sub www_editInternationalMessageSave {
#-------------------------------------------------------------------
sub www_editLanguage {
my ($output, $slash, $dir, @files, $file, %data, $f, %options);
my ($output, $dir, @files, $file, %data, $f, %options);
return WebGUI::Privilege::adminOnly() unless (WebGUI::Privilege::isInGroup(3));
tie %data, 'Tie::CPHash';
$slash = ($^O =~ /Win/i) ? "\\" : "/";
$dir = $session{config}{webguiRoot}.$slash."www".$slash."extras".$slash."toolbar";
$dir = $session{config}{extrasPath}.$session{os}{slash}."toolbar";
opendir (DIR,$dir) or WebGUI::ErrorHandler::warn("Can't open toolbar directory!");
@files = readdir(DIR);
foreach $file (@files) {