diff options
| author | ivan <ivan> | 2007-11-08 02:10:28 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2007-11-08 02:10:28 +0000 |
| commit | 8d673fa811a4ad772ceb8f10be2e31884cac6467 (patch) | |
| tree | d26fcecd5f2c048f9baa1238beab23931f87e1db | |
| parent | 82ac92e9804b65f209ee5d38f826c4b9c2897ce9 (diff) | |
prevent warning: "Use of uninitialized value in concatenation (.) or string at /usr/local/share/perl/5.8.8/FS/cust_main.pm line 1668."
| -rw-r--r-- | FS/FS/cust_main.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm index 214e943bd..910bb32b7 100644 --- a/FS/FS/cust_main.pm +++ b/FS/FS/cust_main.pm @@ -1681,7 +1681,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" |