From: ivan <ivan>
Date: Thu, 8 Nov 2007 02:10:35 +0000 (+0000)
Subject: prevent warning: "Use of uninitialized value in concatenation (.) or string at /usr... 
X-Git-Tag: freeside_1_7_3rc1~275
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=181fdb06ea1ac3b92bfac9e2d576186fd062df31;p=freeside.git

prevent warning: "Use of uninitialized value in concatenation (.) or string at /usr/local/share/perl/5.8.8/FS/cust_main.pm line 1668."
---

diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm
index 1a67c03cb..cc23047e4 100644
--- a/FS/FS/cust_main.pm
+++ b/FS/FS/cust_main.pm
@@ -1663,7 +1663,8 @@ sub num_ncancelled_pkgs {
 }
 
 sub num_pkgs {
-  my( $self, $sql ) = @_;
+  my( $self ) = shift;
+  my $sql = scalar(@_) ? shift : '';
   $sql = "AND $sql" if $sql && $sql !~ /^\s*$/ && $sql !~ /^\s*AND/i;
   my $sth = dbh->prepare(
     "SELECT COUNT(*) FROM cust_pkg WHERE custnum = ? $sql"