Embperl::Form::Control::textarea - A textarea input control inside an Embperl Form

Embperl documentation Contained in the Embperl distribution.

Index

Code Index:

NAME

Top

Embperl::Form::Control::textarea - A textarea input control inside an Embperl Form

SYNOPSIS

Top

  { 
  type => 'textarea',
  text => 'blabla', 
  name => 'foo',
  id   => 'id_foo',
  rows => 10,
  cols => 80,
  }

DESCRIPTION

Top

Used to create an input control inside an Embperl Form. See Embperl::Form on how to specify parameters.

PARAMETER

type

Needs to be 'textarea'

text

Will be used as label for the text input control

name

Will be used as field name for the text input control

name

Will be used as id of the text input control

cols

Number of columns

rows

Number of rows

Author

Top

G. Richter (richter@dev.ecos.de)

See Also

Top

perl(1), Embperl, Embperl::Form

Embperl documentation Contained in the Embperl distribution. 
###################################################################################
#
#   Embperl - Copyright (c) 1997-2010 Gerald Richter / ecos gmbh   www.ecos.de
#
#   You may distribute under the terms of either the GNU General Public
#   License or the Artistic License, as specified in the Perl README file.
#
#   THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR
#   IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
#   WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
#   $Id$
#
###################################################################################

package Embperl::Form::Control::textarea ;

use strict ;
use base 'Embperl::Form::Control' ;

use Embperl::Inline ;

1 ;

__EMBPERL__
    
[# ---------------------------------------------------------------------------
#
#   show_control - output the control
#]

[$ sub show_control ($self) $]

<textarea type="text"  class="cBase cControl"  name="[+ $self->{name} +]"
[$if $self -> {cols} $]cols="[+ $self->{cols} +]"[$endif$]
[$if $self -> {rows} $]rows="[+ $self->{rows} +]"[$endif$]
[$if $self -> {id}   $]id="[+ $self->{id} +]"[$endif$]
></textarea>
[$endsub$]

__END__