Parent Directory | Revision Log | Patch
--- perl/embperl/trunk/Embperl/Form/Control/input.pm 2005/12/09 19:00:27 355573 +++ perl/embperl/trunk/Embperl/Form/Control/input.pm 2005/12/09 18:15:54 355574 @@ -1,92 +1,93 @@ - -################################################################################### -# -# Embperl - Copyright (c) 1997-2005 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::input ; - -use strict ; -use base 'Embperl::Form::Control' ; - -use Embperl::Inline ; - -1 ; - -__EMBPERL__ - -[# --------------------------------------------------------------------------- -# -# show_control - output the control -#] - -[$ sub show_control ($self) -$self -> {size} ||= 80 / ($self -> {width} || 2) ; -$] - -<input type="text" class="cBase cControl" name="[+ $self->{name} +]" -[$if $self -> {size} $]size="[+ $self->{size} +]"[$endif$] -[$if $self -> {maxlength} $]size="[+ $self->{maxlength} +]"[$endif$] -> -[$endsub$] - -__END__ - -=pod - -=head1 NAME - -Embperl::Form::Control::input - A text input control inside an Embperl Form - - -=head1 SYNOPSIS - - { - type => 'input', - text => 'blabla', - name => 'foo', - size => 10, - } - -=head1 DESCRIPTION - -Used to create an input control inside an Embperl Form. -See Embperl::Form on how to specify parameters. - -=head2 PARAMETER - -=head3 type - -Needs to be 'input' - -=head3 text - -Will be used as label for the text input control - -=head3 size - -Gives the size in characters - -=head3 maxlength - -Gives the maximun length in characters - -=head1 Author - -G. Richter (richter@dev.ecos.de) - -=head1 See Also - -perl(1), Embperl, Embperl::Form - - + +################################################################################### +# +# Embperl - Copyright (c) 1997-2005 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::input ; + +use strict ; +use base 'Embperl::Form::Control' ; + +use Embperl::Inline ; + +1 ; + +__EMBPERL__ + +[# --------------------------------------------------------------------------- +# +# show_control - output the control +#] + +[$ sub show_control ($self) +$self -> {size} ||= 80 / ($self -> {width} || 2) ; +$] + +<input type="text" class="cBase cControl" name="[+ $self->{name} +]" +[$if $self -> {size} $]size="[+ $self->{size} +]"[$endif$] +[$if $self -> {maxlength} $]maxlength="[+ $self->{maxlength} +]"[$endif$] +> +[$endsub$] + +__END__ + +=pod + +=head1 NAME + +Embperl::Form::Control::input - A text input control inside an Embperl Form + + +=head1 SYNOPSIS + + { + type => 'input', + text => 'blabla', + name => 'foo', + size => 10, + maxlength => 50, + } + +=head1 DESCRIPTION + +Used to create an input control inside an Embperl Form. +See Embperl::Form on how to specify parameters. + +=head2 PARAMETER + +=head3 type + +Needs to be 'input' + +=head3 text + +Will be used as label for the text input control + +=head3 size + +Gives the size in characters + +=head3 maxlength + +Gives the maximum possible input length in characters + +=head1 Author + +G. Richter (richter@dev.ecos.de) + +=head1 See Also + +perl(1), Embperl, Embperl::Form + +
infrastructure at apache.org | ViewVC Help |
Powered by ViewVC 1.1.26 |