Author: richter Date: Mon Aug 13 03:40:54 2012 New Revision: 1372255 URL: http://svn.apache.org/viewvc?rev=1372255&view=rev Log: Embperl::Form checkboxes readonly display
Modified: perl/embperl/trunk/Embperl/Form/Control/checkboxes.pm Modified: perl/embperl/trunk/Embperl/Form/Control/checkboxes.pm URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control/checkboxes.pm?rev=1372255&r1=1372254&r2=1372255&view=diff ============================================================================== --- perl/embperl/trunk/Embperl/Form/Control/checkboxes.pm (original) +++ perl/embperl/trunk/Embperl/Form/Control/checkboxes.pm Mon Aug 13 03:40:54 2012 @@ -32,7 +32,8 @@ sub show_control_readonly my ($self, $req) = @_ ; my $name = $self -> {name} ; - $self -> show_control ($req, "^\Q$fdat{$name}\E\$") ; + my @values = split (/\t/, $fdat{$name}) ; + $self -> show_control ($req, "^(?:" . join ('|', map { "\Q$_\E" } @values) . ")\$") ; } # --------------------------------------------------------------------------- --------------------------------------------------------------------- To unsubscribe, e-mail: embperl-cvs-unsubscr...@perl.apache.org For additional commands, e-mail: embperl-cvs-h...@perl.apache.org