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

rfe: let package import inherit permissions

Browse source
This commit is contained in:
Graham Knop 2008-09-16 21:34:40 +00:00
parent 7b21d656ef
commit 79e88a867a
5 changed files with 43 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lib/WebGUI/Form/Checkbox.pm
View file

@ -66,6 +66,9 @@ sub definition {
defaultValue=>{
defaultValue=> undef
},
label => {
defaultValue => undef,
},
});
return $class->SUPER::definition($session, $definition);
}
@ -122,7 +125,11 @@ sub toHtml {
$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="checkbox" name="'.($self->get("name")||'').'" value="'.$value.'"'.$idText.$checkedText.' '.($self->get("extras")||'').' />';
my $control = '<input type="checkbox" name="'.($self->get("name")||'').'" value="'.$value.'"'.$idText.$checkedText.' '.($self->get("extras")||'').' />';
if ($self->get('label')) {
return "<label>$control" . $self->get('label') . '</label>';
}
return $control;
}