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

Convert Textarea over to headTags

Browse source
This commit is contained in:
Colin Kuskie 2010-09-14 13:46:45 -07:00
parent 3b485ed086
commit 2c92273fae
1 changed files with 30 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

47
lib/WebGUI/Form/Textarea.pm
View file

@ -119,6 +119,35 @@ sub getName {
#------------------------------------------------------------------- #-------------------------------------------------------------------
=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));
if ($self->get("resizable")) {
$style->setLink($url->extras("yui/build/resize/assets/skins/sam/resize.css"), {type=>"text/css", rel=>"stylesheet"});
$style->setScript($url->extras("yui/build/utilities/utilities.js"), {type=>"text/javascript"});
$style->setScript($url->extras("yui/build/resize/resize-min.js"), {type=>"text/javascript"});
}
if ($self->get('maxlength')) {
# Add the maxlength script
$style->setScript(
$url->extras( 'yui/build/yahoo-dom-event/yahoo-dom-event.js' ),
{ type => 'text/javascript' },
);
$style->setScript(
$url->extras( 'yui-webgui/build/form/textarea.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.
@ -142,7 +171,6 @@ sub toHtml {
my $value = $self->fixMacros($self->fixTags($self->fixSpecialCharacters(scalar $self->getOriginalValue))); my $value = $self->fixMacros($self->fixTags($self->fixSpecialCharacters(scalar $self->getOriginalValue)));
my $width = $self->get('width') || 400; my $width = $self->get('width') || 400;
my $height = $self->get('height') || 150; my $height = $self->get('height') || 150;
my ($style, $url, $stow) = $self->session->quick(qw(style url stow));
my $sizeStyle = ' width: ' . $width . 'px; height: ' . $height . 'px;'; my $sizeStyle = ' width: ' . $width . 'px; height: ' . $height . 'px;';
my $out my $out
= '<textarea id="' . $self->get('id') . '"' = '<textarea id="' . $self->get('id') . '"'
@ -155,9 +183,6 @@ sub toHtml {
. '>' . $value . '</textarea>'; . '>' . $value . '</textarea>';
if ($self->get("resizable")) { if ($self->get("resizable")) {
$style->setLink($url->extras("yui/build/resize/assets/skins/sam/resize.css"), {type=>"text/css", rel=>"stylesheet"});
$style->setScript($url->extras("yui/build/utilities/utilities.js"), {type=>"text/javascript"});
$style->setScript($url->extras("yui/build/resize/resize-min.js"), {type=>"text/javascript"});
$out = sprintf <<'END_HTML', $self->get('id'), $out, $sizeStyle; $out = sprintf <<'END_HTML', $self->get('id'), $out, $sizeStyle;
<div id="%1$s_resizewrapper" style="padding-right: 6px; padding-bottom: 6px; %3$s">%2$s</div> <div id="%1$s_resizewrapper" style="padding-right: 6px; padding-bottom: 6px; %3$s">%2$s</div>
<script type="text/javascript"> <script type="text/javascript">
@ -172,19 +197,7 @@ sub toHtml {
</script> </script>
END_HTML END_HTML
} }
elsif ($self->get('maxlength')) { $self->headTags;
$style->setScript(
$url->extras( 'yui/build/yahoo-dom-event/yahoo-dom-event.js' ),
{ type => 'text/javascript' },
);
}
if ($self->get('maxlength')) {
# Add the maxlength script
$style->setScript(
$url->extras( 'yui-webgui/build/form/textarea.js' ),
{ type => 'text/javascript' },
);
}
return $out; return $out;
} }