Parent Directory | Revision Log | Patch
--- perl/embperl/trunk/Embperl/Form/Control/select.pm 2005/12/23 14:13:36 358806 +++ perl/embperl/trunk/Embperl/Form/Control/select.pm 2005/12/23 14:16:19 358807 @@ -17,10 +17,24 @@ package Embperl::Form::Control::select ; use strict ; +use vars qw{%fdat} ; use base 'Embperl::Form::ControlMultValue' ; use Embperl::Inline ; +# --------------------------------------------------------------------------- +# +# show_control_readonly - output readonly control +# + +sub show_control_readonly + { + my ($self) = @_ ; + + my $name = $self -> {name} ; + $self -> show_control ("^\Q$fdat{$name}\\E\$") ; + } + 1 ;
infrastructure at apache.org | ViewVC Help |
Powered by ViewVC 1.1.26 |