Mailing List Archive

svn commit: r1176286 - /perl/embperl/trunk/Embperl/Form/Control/grid.pm
Author: richter
Date: Tue Sep 27 09:03:19 2011
New Revision: 1176286

URL: http://svn.apache.org/viewvc?rev=1176286&view=rev
Log:
ignore empty rows in 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=1176286&r1=1176285&r2=1176286&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/grid.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/grid.pm Tue Sep 27 09:03:19 2011
@@ -199,6 +199,7 @@ sub prepare_fdat
{
$i = $orders{$order} ;
$j = 0 ;
+ my $empty = 1 ;
my @data = ($i+1) ;
foreach my $field (@$fields)
{
@@ -211,10 +212,11 @@ sub prepare_fdat
{
$data[$col+1] = $fdat->{"__${name}_${j}_$i"} ;
}
+ $empty = 0 if ($data[$col+1] ne '') ;
$j++ ;
}
$val = $ldap?ecos::LdapBase -> joinAttrValue(\@data):\@data ;
- push @rows, $val if ($val ne '') ;
+ push @rows, $val if (!$empty) ;
}
$fdat->{$name} = \@rows ;




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