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-unsubscr...@perl.apache.org For additional commands, e-mail: embperl-cvs-h...@perl.apache.org