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

more form fixes

Browse source
This commit is contained in:
Colin Kuskie 2006-01-15 17:26:36 +00:00
parent 65823b1f53
commit 5705131fcf
4 changed files with 9 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -16,6 +16,7 @@ package WebGUI::Form::List;
use strict;
use base 'WebGUI::Form::Control';
use WebGUI::Form::Hidden;
use WebGUI::International;
=head1 NAME
@ -102,7 +103,7 @@ sub correctValues {
push(@defaultValues, $_);
}
}
$self->get("value") = \@defaultValues;
$self->set("value", \@defaultValues);
}
@ -264,10 +265,11 @@ sub toHtmlAsHidden {
foreach my $key (keys %options) {
foreach my $item (@values) {
if ($item eq $key) {
$output .= WebGUI::Form::Hidden->(
$output .= WebGUI::Form::Hidden->new(
$self->session,
name=>$self->get("name"),
value=>$key
);
)->toHtmlAsHidden;
}
}
}