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

sorted admin console and fixed pod in Utility

Browse source
This commit is contained in:
JT Smith 2004-11-03 21:06:54 +00:00
parent 8c6cc0ebd7
commit 145472845f
2 changed files with 10 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lib/WebGUI/AdminConsole.pm
View file

@ -198,9 +198,15 @@ sub getAdminFunction {
if ($id) {
return $self->_formatFunction($functions->{$id});
} else {
my @list;
my %names;
foreach my $id (keys %{$functions}) {
push(@list,$self->_formatFunction($functions->{$id}));
my $func = $self->_formatFunction($functions->{$id});
$names{$func->{title}} = $func;
}
my @sorted = sort {$a cmp $b} keys %names;
my @list;
foreach my $key (@sorted) {
push(@list,$names{$key});
}
return \@list;
}

4
lib/WebGUI/Utility.pm
View file

@ -45,8 +45,8 @@ This package provides miscellaneous but useful utilities to the WebGUI programme
$integer = randint($low,$high);
randomizeArray(\@array);
$hashRef = randomizeHash(\%hash);
$hash = sortHash(%hash);
$hash = sortHashDescending(%hash);
%hash = sortHash(%hash);
%hash = sortHashDescending(%hash);
=head1 METHODS