[freeside-commits] freeside/FS/FS cust_main.pm, 1.271.2.24, 1.271.2.25

[Ivan,,,]

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

Modified Files:
      Tag: FREESIDE_1_7_BRANCH
	cust_main.pm 
Log Message:
prevent warning: "Use of uninitialized value in concatenation (.) or string at /usr/local/share/perl/5.8.8/FS/cust_main.pm line 1668."

Index: cust_main.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cust_main.pm,v
retrieving revision 1.271.2.24
retrieving revision 1.271.2.25
diff -u -d -r1.271.2.24 -r1.271.2.25
--- cust_main.pm	27 Oct 2007 04:46:20 -0000	1.271.2.24
+++ cust_main.pm	8 Nov 2007 02:10:35 -0000	1.271.2.25
@@ -1663,7 +1663,8 @@
 }
 
 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"