perl-embperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From rich...@apache.org
Subject svn commit: r1139776 - in /perl/embperl/trunk/Embperl/Form: Control.pm Control/checkbox.pm
Date Sun, 26 Jun 2011 13:06:01 GMT
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


Mime
View raw message