Convert Text, Url, JsonTable and AssetReportQuery to use headTags.

This commit is contained in:
Colin Kuskie 2010-09-14 11:33:23 -07:00
parent d2623c2159
commit adb279771b
4 changed files with 58 additions and 12 deletions

View file

@ -125,6 +125,22 @@ sub getValueAsHtml {
}
#-------------------------------------------------------------------
=head2 headTags ( )
Add JS.
=cut
sub headTags {
my $self = shift;
return if $self->headTagsSent;
$self->session->style->setScript($self->session->url->extras('addHTTP.js'),{ type=>'text/javascript' });
$self->SUPER::headTags();
return;
}
#-------------------------------------------------------------------
=head2 isDynamicCompatible ( )
@ -147,7 +163,6 @@ Renders a URL field.
sub toHtml {
my $self = shift;
$self->session->style->setScript($self->session->url->extras('addHTTP.js'));
$self->set("extras", $self->get('extras') . ' onblur="addHTTP(this.form.'.$self->get("name").')"');
return $self->SUPER::toHtml;
}