You are viewing a plain text version of this content. The canonical link for it is here.
Posted to embperl-cvs@perl.apache.org by ri...@apache.org on 2011/06/26 15:06:01 UTC
svn commit: r1139776 - in /perl/embperl/trunk/Embperl/Form: Control.pm
Control/checkbox.pm
Author: richter
Date: Sun Jun 26 13:06:00 2011
New Revision: 1139776
URL: http://svn.apache.org/viewvc?rev=1139776&view=rev
Log:
Fix checkbox readonly display inside of grid
Modified:
perl/embperl/trunk/Embperl/Form/Control.pm
perl/embperl/trunk/Embperl/Form/Control/checkbox.pm
Modified: perl/embperl/trunk/Embperl/Form/Control.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control.pm?rev=1139776&r1=1139775&r2=1139776&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control.pm Sun Jun 26 13:06:00 2011
@@ -345,7 +345,7 @@ $]
# show_control_readonly - output the control as readonly
#]
-[$ sub show_control_readonly ($self, $req) $][+ $self -> {value} || $fdat{$self -> {name}} +][$endsub$]
+[$ sub show_control_readonly ($self, $req, $value) $][+ defined ($value)?$value:($self -> {value} || $fdat{$self -> {name}}) +][$endsub$]
[# ---------------------------------------------------------------------------
#
Modified: perl/embperl/trunk/Embperl/Form/Control/checkbox.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control/checkbox.pm?rev=1139776&r1=1139775&r2=1139776&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/checkbox.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/checkbox.pm Sun Jun 26 13:06:00 2011
@@ -64,8 +64,7 @@ sub show_control_readonly
my $val = $self -> {value} ;
$val = 1 if ($val eq '') ;
- $self -> {value} = $fdat{$name} eq $val?'X':'-' ;
- $self -> SUPER::show_control_readonly ($req) ;
+ $self -> SUPER::show_control_readonly ($req, $fdat{$name} eq $val?'X':'-') ;
}
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org