You are viewing a plain text version of this content. The canonical link for it is here.
Posted to embperl-cvs@perl.apache.org by ri...@apache.org on 2011/11/13 13:48:58 UTC
svn commit: r1201424 - /perl/embperl/trunk/Embperl/Form/Control/grid.pm
Author: richter
Date: Sun Nov 13 12:48:57 2011
New Revision: 1201424
URL: http://svn.apache.org/viewvc?rev=1201424&view=rev
Log:
Do not define a value in %fdat for the grid, when there is no data at all for the grid
Modified:
perl/embperl/trunk/Embperl/Form/Control/grid.pm
Modified: perl/embperl/trunk/Embperl/Form/Control/grid.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control/grid.pm?rev=1201424&r1=1201423&r2=1201424&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/grid.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/grid.pm Sun Nov 13 12:48:57 2011
@@ -158,6 +158,8 @@ sub prepare_fdat
my $fdat = $req -> {form} || \%fdat ;
my $ldap = $req->{ldap};
my $name = $self->{name} ;
+ return if (!exists $fdat->{"__${name}_max"}) ;
+
my $fields = $self -> {fields} ;
my $line2 = $self -> {line2} ;
my $max = $fdat->{"__${name}_max"} ;
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org