diff --git a/lib/WebGUI/Form/Textarea.pm b/lib/WebGUI/Form/Textarea.pm deleted file mode 100644 index 79b64cc19..000000000 --- a/lib/WebGUI/Form/Textarea.pm +++ /dev/null @@ -1,141 +0,0 @@ -package WebGUI::Form::Textarea; - -=head1 LEGAL - - ------------------------------------------------------------------- - WebGUI is Copyright 2001-2007 Plain Black Corporation. - ------------------------------------------------------------------- - Please read the legal notices (docs/legal.txt) and the license - (docs/license.txt) that came with this distribution before using - this software. - ------------------------------------------------------------------- - http://www.plainblack.com info@plainblack.com - ------------------------------------------------------------------- - -=cut - -use strict; -use base 'WebGUI::Form::Control'; -use WebGUI::International; - -=head1 NAME - -Package WebGUI::Form::Textarea - -=head1 DESCRIPTION - -Creates a text area form field. - -=head1 SEE ALSO - -This is a subclass of WebGUI::Form::Control. - -=head1 METHODS - -The following methods are specifically available from this class. Check the superclass for additional methods. - -=cut - -#------------------------------------------------------------------- - -=head2 definition ( [ additionalTerms ] ) - -See the super class for additional details. - -=head3 additionalTerms - -The following additional parameters have been added via this sub class. - -=head4 width - -The width of this control in pixels. Defaults to 400 pixels. - -=head4 height - -The height of this control in pixels. Defaults to 150 pixels. - -=head4 style - -Style attributes besides width and height which should be specified using the above parameters. Be sure to escape quotes if you use any. - -=head4 profileEnabled - -Flag that tells the User Profile system that this is a valid form element in a User Profile - -=head4 resizable - -A boolean indicating whether the text area can be reized by users. Defaults to 1. - -=cut - -sub definition { - my $class = shift; - my $session = shift; - my $definition = shift || []; - my $i18n = WebGUI::International->new($session); - push(@{$definition}, { - formName=>{ - defaultValue=>$i18n->get("476") - }, - height=>{ - defaultValue=> 150 - }, - width=>{ - defaultValue=> 400 - }, - style=>{ - defaultValue => undef, - }, - resizable => { - defaultValue => 1, - }, - profileEnabled=>{ - defaultValue=>1 - }, - dbDataType => { - defaultValue => "LONGTEXT", - }, - }); - return $class->SUPER::definition($session, $definition); -} - -#------------------------------------------------------------------- - -=head2 toHtml ( ) - -Renders an input tag of type text. - -=cut - -sub toHtml { - my $self = shift; - my $value = $self->fixMacros($self->fixTags($self->fixSpecialCharacters($self->get("value")))); - my $width = $self->get('width') || 400; - my $height = $self->get('height') || 150; - my $style = "width: ".$width."px; height: ".$height."px; ".$self->get("style"); - my $out = ''; - if ($self->get("resizable")) { - $out = '