richter at apache
Sep 27, 2011, 2:03 AM
Post #1 of 1
(251 views)
Permalink
|
|
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 [at] perl
For additional commands, e-mail: embperl-cvs-help [at] perl
|
