Login | Register For Free | Help
Search for: (Advanced)

Mailing List Archive: ModPerl: Embperl-cvs

svn commit: r1176286 - /perl/embperl/trunk/Embperl/Form/Control/grid.pm

 

 

ModPerl embperl-cvs RSS feed   Index | Next | Previous | View Threaded


richter at apache

Sep 27, 2011, 2:03 AM

Post #1 of 1 (331 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

ModPerl embperl-cvs RSS feed   Index | Next | Previous | View Threaded
 
 


Interested in having your list archived? Contact Gossamer Threads
 
  Web Applications & Managed Hosting Powered by Gossamer Threads Inc.