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

added fieldsets around form controls with multiple elements

Browse source
This commit is contained in:
Graham Knop 2008-09-16 16:27:15 +00:00
parent d41625dc40
commit 98bfd9ac1d
5 changed files with 36 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

37
lib/WebGUI/Form/YesNo.pm
View file

@ -150,25 +150,28 @@ sub toHtml {
my $i18n = WebGUI::International->new($self->session);
my ($checkYes, $checkNo);
if ($self->getOriginalValue) {
$checkYes = 1;
$checkYes = 1;
} else {
$checkNo = 1;
$checkNo = 1;
}
my $output = WebGUI::Form::Radio->new($self->session,
checked=>$checkYes,
name=>$self->get("name"),
value=>1,
extras=>$self->get("extras")
)->toHtml;
$output .= $i18n->get(138);
$output .= '   ';
$output .= WebGUI::Form::Radio->new($self->session,
checked=>$checkNo,
name=>$self->get("name"),
value=>0,
extras=>$self->get("extras")
)->toHtml;
$output .= $i18n->get(139);
my $output = '<fieldset style="border:none;margin:0;padding:0">'
. WebGUI::Form::Radio->new($self->session,
checked => $checkYes,
name => $self->get("name"),
value => 1,
extras => $self->get("extras"),
label => $i18n->get(138),
)->toHtml
. '&nbsp;&nbsp;&nbsp;'
. WebGUI::Form::Radio->new($self->session,
checked => $checkNo,
name => $self->get("name"),
value => 0,
extras => $self->get("extras"),
label => $i18n->get(139),
)->toHtml
. '</fieldset>'
;
return $output;
}