Mailing List Archive

Author: richter
Date: Sun May 5 12:02:33 2013
New Revision: 1479302

URL: http://svn.apache.org/r1479302
Log:
set _opt_ name only temporary in readonly select

Modified:
perl/embperl/trunk/Embperl/Form/ControlMultValue.pm

Modified: perl/embperl/trunk/Embperl/Form/ControlMultValue.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/ControlMultValue.pm?rev=1479302&r1=1479301&r2=1479302&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/ControlMultValue.pm (original)
+++ perl/embperl/trunk/Embperl/Form/ControlMultValue.pm Sun May 5 12:02:33 2013
@@ -306,7 +306,7 @@ sub show_control_readonly

$option = '<Kein Zugriff>' if (!$option && $value && ($req->{userCtx}{role} ne '*')) ;

- $self -> {force_name} = '_opt_' . $self -> {name} ;
+ local $self -> {force_name} = '_opt_' . $self -> {name} ;
$self -> SUPER::show_control_readonly ($req, $option) ;
}




---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org