[freeside-commits] freeside/FS/FS cust_main.pm, 1.271.2.40, 1.271.2.41

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory wavetail:/tmp/cvs-serv5029

Modified Files:
      Tag: FREESIDE_1_7_BRANCH
	cust_main.pm 
Log Message:
should eliminate "Use of uninitialized value in length at /usr/local/share/perl/5.8.8/FS/cust_main.pm line 5194." warnings

Index: cust_main.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cust_main.pm,v
retrieving revision 1.271.2.40
retrieving revision 1.271.2.41
diff -u -d -r1.271.2.40 -r1.271.2.41
--- cust_main.pm	11 Jan 2008 23:10:55 -0000	1.271.2.40
+++ cust_main.pm	3 Feb 2008 02:24:12 -0000	1.271.2.41
@@ -4618,8 +4618,8 @@
   my @where = ();
   push @where, "cust_main.custnum = $table.custnum" unless $opt{'total'};
   if ( $table eq 'cust_bill' || $opt{'unapplied_date'} ) {
-    push @where, "$table._date <= $start" if length($start);
-    push @where, "$table._date >  $end"   if length($end);
+    push @where, "$table._date <= $start" if defined($start) && length($start);
+    push @where, "$table._date >  $end"   if defined($end)   && length($end);
   }
   push @where, @{$opt{'where'}} if $opt{'where'};
   my $where = scalar(@where) ? 'WHERE '. join(' AND ', @where ) : '';