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

fixes for matrix and inbox

Browse source
This commit is contained in:
JT Smith 2006-03-22 21:20:24 +00:00
parent 080eb061ef
commit b84d068229
3 changed files with 15 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

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

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