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

fix ordered options in lists

Browse source
This commit is contained in:
Colin Kuskie 2006-03-23 16:43:17 +00:00
parent 8ea6ece423
commit e56d8ff53c
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -234,12 +234,12 @@ to the case of the values.
=cut =cut
sub orderedHash { sub orderedHash {
my ($self) = @_; my ($self) = @_;
my %options; my %options;
tie %options, 'Tie::IxHash'; tie %options, 'Tie::IxHash';
my $original = $self->get("options"); my $original = $self->get("options");
if ($self->{sortByValue}) { if ($self->get('sortByValue')) {
foreach my $optionKey (sort {"\L${$original}{$a}" cmp "\L${$original}}{$b}" } keys %{$original}) { foreach my $optionKey (sort {"\L$original->{$a}" cmp "\L$original->{$b}" } keys %{$original}) {
$options{$optionKey} = $original->{$optionKey}; $options{$optionKey} = $original->{$optionKey};
} }
} else { } else {