From e02844d00c3b596a2def8b0c836af7db43fa1327 Mon Sep 17 00:00:00 2001 From: Colin Kuskie Date: Tue, 14 Sep 2010 14:00:29 -0700 Subject: [PATCH] Convert Codearea, Slider and Zipcode to headTags --- lib/WebGUI/Form/Codearea.pm | 41 ++++++++++++++++++++++++------------- lib/WebGUI/Form/Slider.pm | 21 +++++++++++++++---- lib/WebGUI/Form/Zipcode.pm | 14 ++++++++++++- 3 files changed, 57 insertions(+), 19 deletions(-) diff --git a/lib/WebGUI/Form/Codearea.pm b/lib/WebGUI/Form/Codearea.pm index 3f276d561..9ecc69164 100644 --- a/lib/WebGUI/Form/Codearea.pm +++ b/lib/WebGUI/Form/Codearea.pm @@ -129,6 +129,32 @@ sub getValue { #------------------------------------------------------------------- +=head2 headTags ( ) + +Set the head tags for this form plugin + +=cut + +sub headTags { + my $self = shift; + my ($style, $url) = $self->session->quick(qw(style url)); + $style->setLink($url->extras("yui/build/resize/assets/skins/sam/resize.css"), {type=>"text/css", rel=>"stylesheet"}); + $style->setLink($url->extras("yui/build/assets/skins/sam/skin.css"), {type=>"text/css", rel=>"stylesheet"}); + $style->setScript($url->extras("yui/build/utilities/utilities.js"),{type=>"text/javascript"}); + $style->setScript($url->extras("yui/build/container/container_core-min.js"),{type=>"text/javascript"}); + $style->setScript($url->extras("yui/build/menu/menu-min.js"),{type=>"text/javascript"}); + $style->setScript($url->extras("yui/build/button/button-min.js"),{type=>"text/javascript"}); + $style->setScript($url->extras("yui/build/resize/resize-min.js"),{type=>"text/javascript"}); + $style->setScript($url->extras("yui/build/editor/editor-min.js"),{type=>"text/javascript"}); + $style->setScript($url->extras("yui-webgui/build/code-editor/code-editor.js"),{type=>"text/javascript"}); + #$style->setLink($url->extras("yui/build/logger/assets/logger.css"), {type=>"text/css", rel=>"stylesheet"}); + #$style->setLink($url->extras("yui/build/logger/assets/skins/sam/logger.css"), {type=>"text/css", rel=>"stylesheet"}); + #$style->setScript($url->extras("yui/build/logger/logger.js"),{type=>"text/javascript"}); + $self->SUPER::headTags(); +} + +#------------------------------------------------------------------- + =head2 isDynamicCompatible ( ) A class method that returns a boolean indicating whether this control is compatible with the DynamicField control. @@ -149,7 +175,6 @@ Renders a code area field. sub toHtml { my $self = shift; - my ($style, $url, $stow) = $self->session->quick(qw(style url stow)); my $value = encode_entities( $self->fixMacros($self->fixTags($self->fixSpecialCharacters(scalar $self->getOriginalValue))) ); my $width = $self->get('width') || 400; @@ -160,19 +185,7 @@ sub toHtml { my $syntax = $self->get('syntax'); my $styleAttr = $self->get('style'); - $style->setLink($url->extras("yui/build/resize/assets/skins/sam/resize.css"), {type=>"text/css", rel=>"stylesheet"}); - $style->setLink($url->extras("yui/build/assets/skins/sam/skin.css"), {type=>"text/css", rel=>"stylesheet"}); - $style->setScript($url->extras("yui/build/utilities/utilities.js"),{type=>"text/javascript"}); - $style->setScript($url->extras("yui/build/container/container_core-min.js"),{type=>"text/javascript"}); - $style->setScript($url->extras("yui/build/menu/menu-min.js"),{type=>"text/javascript"}); - $style->setScript($url->extras("yui/build/button/button-min.js"),{type=>"text/javascript"}); - $style->setScript($url->extras("yui/build/resize/resize-min.js"),{type=>"text/javascript"}); - $style->setScript($url->extras("yui/build/editor/editor-min.js"),{type=>"text/javascript"}); - $style->setScript($url->extras("yui-webgui/build/code-editor/code-editor.js"),{type=>"text/javascript"}); - #$style->setLink($url->extras("yui/build/logger/assets/logger.css"), {type=>"text/css", rel=>"stylesheet"}); - #$style->setLink($url->extras("yui/build/logger/assets/skins/sam/logger.css"), {type=>"text/css", rel=>"stylesheet"}); - #$style->setScript($url->extras("yui/build/logger/logger.js"),{type=>"text/javascript"}); - my $codeCss = $url->extras("yui-webgui/build/code-editor/code.css"); + my $codeCss = $self->session->url->extras("yui-webgui/build/code-editor/code.css"); my $out = <<"END_HTML"; '; + $self->headTags; return $output; } diff --git a/lib/WebGUI/Form/Zipcode.pm b/lib/WebGUI/Form/Zipcode.pm index 75e15561d..e523ed06a 100644 --- a/lib/WebGUI/Form/Zipcode.pm +++ b/lib/WebGUI/Form/Zipcode.pm @@ -103,6 +103,19 @@ sub getValue { #------------------------------------------------------------------- +=head2 headTags ( ) + +Set the head tags for this form plugin + +=cut + +sub headTags { + my $self = shift; + $self->session->style->setScript($self->session->url->extras('inputCheck.js'),{ type=>'text/javascript' }); +} + +#------------------------------------------------------------------- + =head2 isDynamicCompatible ( ) A class method that returns a boolean indicating whether this control is compatible with the DynamicField control. @@ -123,7 +136,6 @@ Renders a zip code field. sub toHtml { my $self = shift; - $self->session->style->setScript($self->session->url->extras('inputCheck.js'),{ type=>'text/javascript' }); $self->set("extras", $self->get('extras') . ' onkeyup="doInputCheck(document.getElementById(\''.$self->get("id").'\'),\'0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz- \')"'); return $self->SUPER::toHtml; }