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

Covert File, CheckList over to headTags

Browse source
This commit is contained in:
Colin Kuskie 2010-09-14 13:39:59 -07:00
parent 702dad8254
commit 445dbff297
2 changed files with 29 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

16
lib/WebGUI/Form/CheckList.pm
View file

@ -100,8 +100,6 @@ sub getSelectAllButton {
my $formName = $self->get('name');
my $i18n = WebGUI::International->new($self->session, "Form_CheckList");
$self->session->style->setScript( $self->session->url->extras("yui-webgui/build/form/form.js"));
return WebGUI::Form::Button->new($self->session, {
name => $self->privateName('selectAllButton'),
value => $i18n->get("selectAll label"),
@ -116,6 +114,19 @@ sub getSelectAllButton {
#-------------------------------------------------------------------
=head2 headTags ( )
Set the head tags for this form plugin
=cut
sub headTags {
my $self = shift;
$self->session->style->setScript( $self->session->url->extras("yui-webgui/build/form/form.js"));
}
#-------------------------------------------------------------------
=head2 isDynamicCompatible ( )
A class method that returns a boolean indicating whether this control is compatible with the DynamicField control.
@ -148,6 +159,7 @@ Renders a series of checkboxes.
sub toHtml {
my $self = shift;
$self->headTags;
my $session = $self->session;
my $output = '<fieldset style="border:none;margin:0;padding:0">';
$output .= WebGUI::Form::Hidden($session, { name => $self->privateName('isIn'), value => 1, });