Mailing List Archive

Author: richter
Date: Wed Apr 3 06:47:00 2013
New Revision: 1463838

URL: http://svn.apache.org/r1463838
Log:
fix selectdyn readonly

Modified:
perl/embperl/trunk/Embperl/Form/Control.pm
perl/embperl/trunk/Embperl/Form/Control/selectdyn.pm

Modified: perl/embperl/trunk/Embperl/Form/Control.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control.pm?rev=1463838&r1=1463837&r2=1463838&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control.pm Wed Apr 3 06:47:00 2013
@@ -476,7 +476,7 @@ $]

$value = $self -> {value} || $fdat{$self -> {name}} if (!defined($value)) ;
$]
-<div [.+ do { local $escmode = 0 ; $self -> get_std_control_attr($req, '', 'readonly') } +] _ef_divname="[+$self -> {name}+]">[+ $value +]</div>
+<div [.+ do { local $escmode = 0 ; $self -> get_std_control_attr($req, '', 'readonly') } +] _ef_divname="[+$self -> {force_name} || $self -> {name}+]">[+ $value +]</div>
[$endsub$]

[# ---------------------------------------------------------------------------

Modified: perl/embperl/trunk/Embperl/Form/Control/selectdyn.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control/selectdyn.pm?rev=1463838&r1=1463837&r2=1463838&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/selectdyn.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/selectdyn.pm Wed Apr 3 06:47:00 2013
@@ -104,9 +104,10 @@ __EMBPERL__

my $id = $req -> {uuid} . '_' . $self -> {name} ;

-my $url = $self -> {popupurl} ;
-$url =~ s/<id>/$self -> get_id_from_value ($Embperl::fdat{$self -> {name}})/e ;
+#my $url = $self -> {popupurl} ;
+#$url =~ s/<id>/$self -> get_id_from_value ($Embperl::fdat{$self -> {name}})/e ;

+$self -> {force_name} = '_opt_' . $self -> {name} ;
$]
[- $self -> SUPER::show_control_readonly ($req, $option) ; -]
[#<script>add_qtip($('#[+ $id +]'), '[+ $url +]');</script>#]



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