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
