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

ordering not maintained

Browse source
This commit is contained in:
JT Smith 2004-07-14 03:41:17 +00:00
parent 7bb1b6bb36
commit 497b85bbc0
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib/WebGUI/Form.pm
View file

@ -1329,8 +1329,8 @@ sub selectList {
$multiple = ' multiple="1"' if ($_[0]->{multiple});
$output = '<select name="'.$_[0]->{name}.'" size="'.$size.'" '.$_[0]->{extras}.$multiple.'>';
my %options;
tie %options, 'Tie::IxHash';
if ($_[0]->{sortByValue}) {
tie %options, 'Tie::IxHash';
foreach my $optionKey (sort {"\L${$_[0]->{options}}{$a}" cmp "\L${$_[0]->{options}}{$b}" } keys %{$_[0]->{options}}) {
$options{$optionKey} = ${$_[0]->{options}}{$optionKey};
}