oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Convert Integer to headTags. Convert toHtml part of HTMLArea to headTags.

Browse source
This commit is contained in:
Colin Kuskie 2010-09-14 13:18:03 -07:00
parent a00905520e
commit bd55fb0e58
2 changed files with 26 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lib/WebGUI/Form/HTMLArea.pm
View file

@ -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 ( ) =head2 isDynamicCompatible ( )
@ -171,7 +184,6 @@ sub toHtml {
my $i18n = WebGUI::International->new($self->session); my $i18n = WebGUI::International->new($self->session);
my $richEdit = WebGUI::Asset::RichEdit->new($self->session,$self->get("richEditId")); my $richEdit = WebGUI::Asset::RichEdit->new($self->session,$self->get("richEditId"));
if (defined $richEdit) { if (defined $richEdit) {
$self->session->style->setScript($self->session->url->extras('textFix.js'),{ type=>'text/javascript' });
$self->set("extras", $self->get('extras') . q{ onblur="fixChars(this.form['}.$self->get("name").q{'])" mce_editable="true" }); $self->set("extras", $self->get('extras') . q{ onblur="fixChars(this.form['}.$self->get("name").q{'])" mce_editable="true" });
$self->set("resizable", 0); $self->set("resizable", 0);
return $self->SUPER::toHtml.$richEdit->getRichEditor($self->get('id')); return $self->SUPER::toHtml.$richEdit->getRichEditor($self->get('id'));

14
lib/WebGUI/Form/Integer.pm
View file

@ -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 ( ) =head2 isDynamicCompatible ( )
A class method that returns a boolean indicating whether this control is compatible with the DynamicField control. 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 { sub toHtml {
my $self = shift; 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").'\'),\'0123456789-\')"'); $self->set("extras", $self->get('extras') . ' onkeyup="doInputCheck(document.getElementById(\''.$self->get("id").'\'),\'0123456789-\')"');
return $self->SUPER::toHtml; return $self->SUPER::toHtml;
} }