Parent Directory | Revision Log | Patch
--- perl/embperl/trunk/Embperl/Form/Control/number.pm 2005/12/09 19:00:27 355573 +++ perl/embperl/trunk/Embperl/Form/Control/number.pm 2005/12/09 18:15:54 355574 @@ -1,98 +1,96 @@ - -################################################################################### -# -# 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::number ; - -use strict ; -use base 'Embperl::Form::Control::input' ; - -use Embperl::Inline ; - -1 ; - -__EMBPERL__ - -[# --------------------------------------------------------------------------- -# -# show_control - output the control -#] - -[$ sub show_control ($self) - - $self->{size} ||= 10 ; -$] -[- $self -> SUPER::show_control ; --] -[+ do { use Data::Dumper ; Dumper (\@ISA) }+] -[$if ($self->{unit}) $][+ $self ->{unit} +][$endif$] ; -[$endsub$] - -__END__ - -=pod - -=head1 NAME - -Embperl::Form::Control::number - A numeric input control with optional unit inside an Embperl Form - - -=head1 SYNOPSIS - - { - type => 'input', - text => 'blabla', - name => 'foo', - unit => 'sec', - } - -=head1 DESCRIPTION - -Used to create a numeric input control inside an Embperl Form. -Optionaly it can display an unit after the input field. -See Embperl::Form on how to specify parameters. - -=head2 PARAMETER - -=head3 type - -Needs to be 'number' - -=head3 text - -Will be used as label for the numeric input control - -=head3 size - -Gives the size in characters. (Default: 10) - -=head3 maxlength - -Gives the maximun length in characters - -=head3 unit - -Gives a string that should be displayed right of the input field. - - -=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::number ; + +use strict ; +use base 'Embperl::Form::Control::input' ; + +use Embperl::Inline ; + +1 ; + +__EMBPERL__ + +[# --------------------------------------------------------------------------- +# +# show_control - output the control +#] + +[$ sub show_control ($self) + + $self->{size} ||= 10 ; +$] +[- $self -> SUPER::show_control ; -] +[$if ($self->{unit}) $][+ $self ->{unit} +][$endif$] ; +[$endsub$] + +__END__ + +=pod + +=head1 NAME + +Embperl::Form::Control::number - A numeric input control with optional unit inside an Embperl Form + + +=head1 SYNOPSIS + + { + type => 'input', + text => 'blabla', + name => 'foo', + unit => 'sec', + } + +=head1 DESCRIPTION + +Used to create a numeric input control inside an Embperl Form. +Optionaly it can display an unit after the input field. +See Embperl::Form on how to specify parameters. + +=head2 PARAMETER + +=head3 type + +Needs to be 'number' + +=head3 text + +Will be used as label for the numeric input control + +=head3 size + +Gives the size in characters. (Default: 10) + +=head3 maxlength + +Gives the maximun length in characters + +=head3 unit + +Gives a string that should be displayed right of the input field. + + +=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 |