1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
|
package CGI::FormBuilder::Field::textarea;
=head1 NAME
CGI::FormBuilder::Field::textarea - FormBuilder class for textarea fields
=head1 SYNOPSIS
use CGI::FormBuilder::Field;
# delegated straight from FormBuilder
my $f = CGI::FormBuilder::Field->new($form,
name => 'whatever',
type => 'textarea');
=cut
use strict;
our $VERSION = '3.03';
use CGI::FormBuilder::Util;
use CGI::FormBuilder::Field::text;
use base 'CGI::FormBuilder::Field::text';
# The majority of this module's methods (including new) are
# inherited directly from ::base, since they involve things
# which are common, such as parameter parsing. The only methods
# that are individual to different fields are those that affect
# the rendering, such as script() and tag()
*render = \&tag;
sub tag {
local $^W = 0; # -w sucks
my $self = shift;
my $attr = $self->attr;
my $jspre = $self->{_form}->jsprefix;
my $tag = '';
my @value = $self->tag_value; # sticky is different in <tag>
delete $attr->{type}; # <textarea type="textarea"> invalid
my $text = join "\n", @value;
$tag .= htmltag('textarea', $attr) . escapehtml($text) . '</textarea>';
debug 2, "$self->{name}: generated tag = $tag";
return $tag; # always return scalar tag
}
1;
__END__
=head1 DESCRIPTION
This module is used to create B<FormBuilder> elements of a specific type.
Currently, each type module inherits all of its methods from the main
L<CGI::FormBuilder::Field> module except for C<tag()> and C<script()>,
which affect the XHMTL representation of the field.
Please refer to L<CGI::FormBuilder::Field> and L<CGI::FormBuilder> for
documentation.
=head1 SEE ALSO
L<CGI::FormBuilder>, L<CGI::FormBuilder::Field>
=head1 REVISION
$Id: textarea.pm,v 1.12 2006/02/24 01:42:29 nwiger Exp $
=head1 AUTHOR
Copyright (c) 2005-2006 Nate Wiger <nate@wiger.org>. All Rights Reserved.
This module is free software; you may copy this under the terms of
the GNU General Public License, or the Artistic License, copies of
which should have accompanied your Perl kit.
=cut
|
