Author: richter
Date: Sun Jan 15 18:39:38 2012
New Revision: 1231723
URL: http://svn.apache.org/viewvc?rev=1231723&view=rev
Log:
Embperl::Form
Modified:
perl/embperl/trunk/Embperl/Form/Control/displaylink.pm
perl/embperl/trunk/Embperl/Form/Control/selectdyn.pm
Modified: perl/embperl/trunk/Embperl/Form/Control/displaylink.pm
URL:
http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control/displaylink.pm?rev=1231723&r1=1231722&r2=1231723&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/displaylink.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/displaylink.pm Sun Jan 15 18:39:38
2012
@@ -58,9 +58,9 @@ $opens = [$opens] if ($opens && !ref
$displays = [$displays] if (!ref $displays) ;
-@hrefs = map { my $x = $_ ; $x =~ s/%%%name%%%/$fdat{$name}/g ; $x =~
s/%%(.+?)%%/$fdat{$1}/g ; $x } ref ($hrefs)?@$hrefs:($hrefs) ;
-@opens = map { my $x = $_ ; $x =~ s/%%%name%%%/$fdat{$name}/g ; $x =~
s/%%(.+?)%%/$fdat{$1}/g ; $x } ref ($opens)?@$opens:($opens) ;
-@displays = map { my $x = $_ ; $x =~ s/%%%name%%%/$fdat{$name}/g ; $x =~
s/%%(.+?)%%/$fdat{$1}/g ; $x } @$displays ;
+@hrefs = map { my $x = $_ ; $x =~ s/%%%name%%%/$epreq->Escape
($fdat{$name},6)/eg ; $x =~ s/%%(.+?)%%/$epreq->Escape ($fdat{$1}, 6)/eg ; $x }
ref ($hrefs)?@$hrefs:($hrefs) ;
+@opens = map { my $x = $_ ; $x =~ s/%%%name%%%/$epreq->Escape
($fdat{$name},6)/eg ; $x =~ s/%%(.+?)%%/$epreq->Escape ($fdat{$1}, 6)/eg ; $x }
ref ($opens)?@$opens:($opens) ;
+@displays = map { my $x = $_ ; $x =~ s/%%%name%%%/$fdat{$name}/g ; $x =~
s/%%(.+?)%%/$fdat{$1}/eg ; $x } @$displays ;
my $dispn = 0 ;
$]
Modified: perl/embperl/trunk/Embperl/Form/Control/selectdyn.pm
URL:
http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control/selectdyn.pm?rev=1231723&r1=1231722&r2=1231723&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/selectdyn.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/selectdyn.pm Sun Jan 15 18:39:38
2012
@@ -36,7 +36,6 @@ sub prepare_fdat
my $fdat = $req -> {form} || \%fdat ;
my $name = $self->{name} ;
my $val = $fdat -> {"_inp_$name"} ;
- ::dbg ($fdat, $name, $val) ;
$fdat -> {$name} = '' if ($val eq '') ;
delete $fdat -> {"_inp_$name"} ;
}
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscr...@perl.apache.org
For additional commands, e-mail: embperl-cvs-h...@perl.apache.org
