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

first batch of Form i18n and compilation patches

Browse source
This commit is contained in:
Colin Kuskie 2006-01-15 04:37:19 +00:00
parent 44c6fdfc50
commit 08afb14d51
6 changed files with 24 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -71,10 +71,10 @@ sub correctOptions {
s/\s+$//; # remove trailing spaces
$options{$_} = $_;
}
if (exists $self->get("options") && ref($self->get("options")) eq "HASH") {
%options = (%{$self->get("options}") , %options);
if (exists $self->{options} && ref($self->{options}) eq "HASH") {
%options = (%{$self->{options}} , %options);
}
$self->get("options") = \%options;
$self->{options} = \%options;
}
@ -237,11 +237,11 @@ sub orderedHash {
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};
foreach my $optionKey (sort {"\L${$self->{options}}{$a}" cmp "\L${$self->{options}}{$b}" } keys %{$self->{options}}) {
$options{$optionKey} = $self->{options}{$optionKey};
}
} else {
%options = %{$self->get("options}");
%options = %{$self->{options}};
}
return %options;
}