Mailing List Archive

Author: richter
Date: Tue Mar 24 05:53:28 2015
New Revision: 1668812

URL: http://svn.apache.org/r1668812
Log:
Fix problem with undefined entries in %fdat in prepare_fdat

Modified:
perl/embperl/trunk/Embperl/Form/Control/age.pm
perl/embperl/trunk/Embperl/Form/Control/datetime.pm
perl/embperl/trunk/Embperl/Form/Control/duration.pm
perl/embperl/trunk/Embperl/Form/Control/inputjoin.pm
perl/embperl/trunk/Embperl/Form/Control/password.pm
perl/embperl/trunk/Embperl/Form/Control/price.pm
perl/embperl/trunk/Embperl/Form/Control/textarea.pm

Modified: perl/embperl/trunk/Embperl/Form/Control/age.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control/age.pm?rev=1668812&r1=1668811&r2=1668812&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/age.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/age.pm Tue Mar 24 05:53:28 2015
@@ -112,6 +112,7 @@ sub prepare_fdat

my $fdat = $req -> {form} || \%fdat ;
my $name = $self->{name} ;
+ return if (!exists $fdat->{$name}) ;
my $val = $fdat->{$name} ;
return if ($val eq '') ;


Modified: perl/embperl/trunk/Embperl/Form/Control/datetime.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control/datetime.pm?rev=1668812&r1=1668811&r2=1668812&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/datetime.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/datetime.pm Tue Mar 24 05:53:28 2015
@@ -145,6 +145,7 @@ sub prepare_fdat

my $fdat = $req -> {form} || \%fdat ;
my $name = $self->{name} ;
+ return if (!exists $fdat->{$name}) ;
my $date = $fdat -> {$name} ;
return if ($date eq '') ;


Modified: perl/embperl/trunk/Embperl/Form/Control/duration.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control/duration.pm?rev=1668812&r1=1668811&r2=1668812&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/duration.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/duration.pm Tue Mar 24 05:53:28 2015
@@ -108,6 +108,7 @@ sub prepare_fdat

my $fdat = $req -> {form} || \%fdat ;
my $name = $self->{name} ;
+ return if (!exists $fdat->{$name}) ;
my $val = $fdat->{$name} ;
return if ($val eq '') ;


Modified: perl/embperl/trunk/Embperl/Form/Control/inputjoin.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control/inputjoin.pm?rev=1668812&r1=1668811&r2=1668812&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/inputjoin.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/inputjoin.pm Tue Mar 24 05:53:28 2015
@@ -59,11 +59,13 @@ sub prepare_fdat
my $join = $self -> {join} ;
my $num = $self -> {numinputs} || 1 ;
my @vals ;
+ my $ok = 0 ;
for (my $i = 0; $i < $num; $i++)
{
+ $ok = 1 if (exists $fdat->{$name}) ;
push @vals, $fdat->{"$name-_-$i"} ;
}
- $fdat->{$name} = join ($join, @vals) ;
+ $fdat->{$name} = join ($join, @vals) if ($ok) ;
}



Modified: perl/embperl/trunk/Embperl/Form/Control/password.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control/password.pm?rev=1668812&r1=1668811&r2=1668812&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/password.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/password.pm Tue Mar 24 05:53:28 2015
@@ -55,6 +55,7 @@ sub prepare_fdat

my $fdat = $req -> {form} || \%fdat ;
my $name = $self->{name} ;
+ return if (!exists $fdat->{$name}) ;

delete $fdat -> {$name} if ($fdat -> {$name} eq '********') ;
}

Modified: perl/embperl/trunk/Embperl/Form/Control/price.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control/price.pm?rev=1668812&r1=1668811&r2=1668812&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/price.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/price.pm Tue Mar 24 05:53:28 2015
@@ -103,6 +103,7 @@ sub prepare_fdat

my $fdat = $req -> {form} || \%fdat ;
my $name = $self->{name} ;
+ return if (!exists $fdat->{$name}) ;
my $val = $fdat->{$name} ;
return if ($val eq '') ;


Modified: perl/embperl/trunk/Embperl/Form/Control/textarea.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control/textarea.pm?rev=1668812&r1=1668811&r2=1668812&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/textarea.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/textarea.pm Tue Mar 24 05:53:28 2015
@@ -83,7 +83,7 @@ sub init_data

my $fdat = $req -> {docdata} || \%fdat ;
my $name = $self->{name} ;
- $self -> _filter_html (\$fdat->{$name}) ;
+ $self -> _filter_html (\$fdat->{$name}) if (exists $fdat->{$name});

return ;
}



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