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

fixed 709772

Browse source
This commit is contained in:
JT Smith 2003-03-27 03:06:05 +00:00
parent 805af07e3e
commit b03ddeee47
3 changed files with 9 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lib/WebGUI/Form.pm
View file

@ -1107,7 +1107,7 @@ The list of options for this list. Should be passed as a hash reference.
=item value
The default value(s) for this form element. This should be passed as an array reference.
The default value for this form element. This should be passed as a scalar.
=item vertical
@ -1124,12 +1124,10 @@ If you want to add anything special to this form element like javascript actions
=cut
sub radioList {
my ($output, $key, $checked, $item);
my ($output, $key, $checked);
foreach $key (keys %{$_[0]->{options}}) {
$checked = 0;
foreach $item (@{$_[0]->{value}}) {
$checked = 1 if ($item eq $key);
}
$checked = 1 if ($key $_[0]->{value});
$output .= radio({
name=>$_[0]->{name},
value=>$key,