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:
JT Smith 2008-04-18 15:49:05 +00:00
parent 040d593999
commit 9181a23d73
3 changed files with 9 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lib/WebGUI/Form/CheckList.pm
View file

@ -146,9 +146,12 @@ sub toHtml {
}
my $i=0;
my $options = $self->getOptions;
$self->session->errorHandler->warn(JSON->new->encode($options));
foreach my $key (keys %{$options}) {
$i++;
my $checked = (grep { $_ eq $key } @{ $self->correctValues($self->get('value')) })
my @values = $self->getDefaultValue;
my $checked = (grep { $_ eq $key } @values)
? 1
: 0
;