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

bug fixes from running t/FormGetName.t

Browse source
This commit is contained in:
Colin Kuskie 2006-01-15 05:18:11 +00:00
parent 3b06849a80
commit 6a9a63c4b0
26 changed files with 70 additions and 47 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -105,16 +105,16 @@ sub toHtml {
%options = $self->orderedHash;
foreach my $key (keys %options) {
my $checked = 0;
if ($self->get("value") eq $key) {
if ($self->get('value') eq $key) {
$checked = 1;
}
$output .= WebGUI::Form::Radio->new({
name=>$self->get("name"),
name=>$self->get('name'),
value=>$key,
extras=>$self->get("extras"),
extras=>$self->get('extras'),
checked=>$checked
})->toHtml;
$output .= ${$self->get("options}"){$key} . $alignment;
$output .= $self->get('options')->{$key} . $alignment;
}
return $output;
}