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

remove one use of sortHash

Browse source
This commit is contained in:
Graham Knop 2010-08-24 17:05:00 -05:00
parent fadc4f34ea
commit 95f98696be
2 changed files with 15 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lib/WebGUI/Form/List.pm
View file

@ -165,7 +165,10 @@ sub getOptions {
my %options = ();
tie %options, 'Tie::IxHash';
if (ref $possibleValues eq "HASH") {
%options = %{$possibleValues};
%options = %{$possibleValues};
}
elsif (ref $possibleValues eq 'ARRAY') {
%options = @$possibleValues;
}
else {
foreach my $line (split "\n", $possibleValues) {