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;
}