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 2013/05/05 14:02:33 UTC
svn commit: r1479302 - /perl/embperl/trunk/Embperl/Form/ControlMultValue.pm
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