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

13
lib/WebGUI/Form/Radio.pm
View file

@ -59,7 +59,10 @@ sub definition {
push(@{$definition}, {
checked=>{
defaultValue=> 0
},
},
label => {
defaultValue => undef,
},
});
return $class->SUPER::definition($session, $definition);
}
@ -99,12 +102,16 @@ Renders and input tag of type radio.
=cut
sub toHtml {
my$self = shift;
my $self = shift;
my $value = $self->getOriginalValue();
$value = defined $value ? $self->fixMacros($self->fixQuotes($self->fixSpecialCharacters($value))) : '';
my $checkedText = $self->get("checked") ? ' checked="checked"' : '';
my $idText = $self->get('id') ? ' id="'.$self->get('id').'" ' : '';
return '<input type="radio" name="'.$self->get("name").'" value="'.$value.'"'.$idText.$checkedText.' '.($self->get("extras")||'').' />';
my $control = '<input type="radio" name="'.$self->get("name").'" value="'.$value.'"'.$idText.$checkedText.' '.($self->get("extras")||'').' />';
if ($self->get('label')) {
return "<label>" . $control . $self->get('label') . "</label>";
}
return $control;
}