From: ivan <ivan>
Date: Sun, 3 Feb 2008 02:24:12 +0000 (+0000)
Subject: should eliminate "Use of uninitialized value in length at /usr/local/share/perl/5... 
X-Git-Tag: freeside_1_7_3rc1~120
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=bf9e2e4b0dc2ae648141318142e5253173cc24e8;p=freeside.git

should eliminate "Use of uninitialized value in length at /usr/local/share/perl/5.8.8/FS/cust_main.pm line 5194." warnings
---

diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm
index 7d700972d..d3f9b877a 100644
--- a/FS/FS/cust_main.pm
+++ b/FS/FS/cust_main.pm
@@ -4618,8 +4618,8 @@ sub _money_table_where {
   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 ) : '';