diff --git a/lib/WebGUI/Form/HTMLArea.pm b/lib/WebGUI/Form/HTMLArea.pm
index e8e536271..de6219cea 100644
--- a/lib/WebGUI/Form/HTMLArea.pm
+++ b/lib/WebGUI/Form/HTMLArea.pm
@@ -146,6 +146,19 @@ 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('textFix.js'),{ type=>'text/javascript' });
+}
+
#-------------------------------------------------------------------
=head2 isDynamicCompatible ( )
@@ -171,7 +184,6 @@ sub toHtml {
my $i18n = WebGUI::International->new($self->session);
my $richEdit = eval { WebGUI::Asset::RichEdit->newById($self->session, $self->get("richEditId")); };
if (! Exception::Class->caught() ) {
- $self->session->style->setScript($self->session->url->extras('textFix.js'));
$self->set("extras", $self->get('extras') . q{ onblur="fixChars(this.form['}.$self->get("name").q{'])" mce_editable="true" });
$self->set("resizable", 0);
return $self->SUPER::toHtml.$richEdit->getRichEditor($self->get('id'));
diff --git a/lib/WebGUI/Form/Integer.pm b/lib/WebGUI/Form/Integer.pm
index 422e82267..59e729747 100644
--- a/lib/WebGUI/Form/Integer.pm
+++ b/lib/WebGUI/Form/Integer.pm
@@ -126,6 +126,19 @@ sub getValue {
#-------------------------------------------------------------------
+=head2 headTags ( )
+
+Set 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.
@@ -146,7 +159,6 @@ Renders an integer field.
sub toHtml {
my $self = shift;
- $self->session->style->setScript($self->session->url->extras('inputCheck.js'));
$self->set("extras", $self->get('extras') . ' onkeyup="doInputCheck(document.getElementById(\''.$self->get("id").'\'),\'0123456789-\')"');
return $self->SUPER::toHtml;
}