Parent Directory | Revision Log | Patch
--- perl/embperl/trunk/Embperl/Form/Control/blank.pm 2005/12/09 19:00:27 355573 +++ perl/embperl/trunk/Embperl/Form/Control/blank.pm 2005/12/09 18:15:54 355574 @@ -1,81 +1,81 @@ - -################################################################################### -# -# 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::blank ; - -use strict ; -use base 'Embperl::Form::Control' ; - -use Embperl::Inline ; - -1 ; - -__EMBPERL__ - -[# --------------------------------------------------------------------------- -# -# show - output the control -#] - -[$ sub show ($self, $data) - -my $span = ($self->{width_percent}) ; -$] -<td class="cBase cControlBox" colspan="[+ $span +]">[+ $self->{text} +]</td> -[$endsub$] - - -__END__ - -=pod - -=head1 NAME - -Embperl::Form::Control::blank - A blank area inside an Embperl Form - - -=head1 SYNOPSIS - - { - type => 'blank', - text => 'blabla' - } - -=head1 DESCRIPTION - -Used to create a blank area with optional text inside an Embperl Form. -See Embperl::Form on how to specify parameters. - -=head2 PARAMETER - -=head3 type - -Needs to be 'blank' - -=head3 text (optional) - -Could be used to give a text that should be displayed inside the blank area - - -=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::blank ; + +use strict ; +use base 'Embperl::Form::Control' ; + +use Embperl::Inline ; + +1 ; + +__EMBPERL__ + +[# --------------------------------------------------------------------------- +# +# show - output the control +#] + +[$ sub show ($self, $data) + +my $span = ($self->{width_percent}) ; +$] +<td class="cBase cControlBox" colspan="[+ $span +]">[+ $self->{text} +]</td> +[$endsub$] + + +__END__ + +=pod + +=head1 NAME + +Embperl::Form::Control::blank - A blank area inside an Embperl Form + + +=head1 SYNOPSIS + + { + type => 'blank', + text => 'blabla' + } + +=head1 DESCRIPTION + +Used to create a blank area with optional text inside an Embperl Form. +See Embperl::Form on how to specify parameters. + +=head2 PARAMETER + +=head3 type + +Needs to be 'blank' + +=head3 text (optional) + +Could be used to give a text that should be displayed inside the blank area + + +=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 |