Author: richter
Date: Thu Feb 12 10:25:23 2015
New Revision: 1659200
URL: http://svn.apache.org/r1659200
Log:
set %idat in form control select
Modified:
perl/embperl/trunk/Embperl/Form/Control/select.pm
Modified: perl/embperl/trunk/Embperl/Form/Control/select.pm
URL:
http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control/select.pm?rev=1659200&r1=1659199&r2=1659200&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/select.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/select.pm Thu Feb 12 10:25:23 2015
@@ -43,6 +43,7 @@ push @{$req -> {timing}}, ([Time::HiRes:
my $name = $self -> {name} ;
my $fdat = $req -> {docdata} || \%Embperl::fdat ;
my $value = $fdat -> {$name} ;
+ $Embperl::idat{$name} = $value ;
$filter ||= $self -> {filter} ;
my $nsprefix = $self -> form -> {jsnamespace} ;
my $val ;
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscr...@perl.apache.org
For additional commands, e-mail: embperl-cvs-h...@perl.apache.org
