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 62c68c8703
commit 0b08031bd7
2 changed files with 29 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -100,10 +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"),
@ -118,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.
@ -150,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, });

17
lib/WebGUI/Form/File.pm
View file

@ -237,6 +237,20 @@ sub getValueAsHtml {
#-------------------------------------------------------------------
=head2 headTags ( )
Set the head tags for this form plugin
=cut
sub headTags {
my $self = shift;
$self->session->style->setScript($self->session->url->extras('FileUploadControl.js'),{type=>"text/javascript"});
$self->session->style->setScript($self->session->url->extras('fileIcons.js'),{type=>"text/javascript"});
}
#-------------------------------------------------------------------
=head2 isDynamicCompatible ( )
A class method that returns a boolean indicating whether this control is compatible with the DynamicField control.
@ -272,14 +286,13 @@ Renders a file upload control.
sub toHtml {
my $self = shift;
$self->headTags;
my $i18n = WebGUI::International->new($self->session);
my $uploadControl = '';
my $storage = $self->getStorageLocation;
my @files = @{ $storage->getFiles } if (defined $storage);
my $maxFiles = $self->get('maxAttachments') - scalar(@files);
if ($maxFiles > 0) {
$self->session->style->setScript($self->session->url->extras('FileUploadControl.js'),{type=>"text/javascript"});
$self->session->style->setScript($self->session->url->extras('fileIcons.js'),{type=>"text/javascript"});
$uploadControl = '<script type="text/javascript">'
. sprintf(q!var uploader = new FileUploadControl("%s", fileIcons, "%s","%d", "%s"); uploader.addRow();!
, $self->get("name")."_file", $i18n->get("removeLabel"), $maxFiles, $self->get("size"))