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