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