From: Mark Wells <mark@freeside.biz>
Date: Tue, 24 Feb 2015 03:13:33 +0000 (-0800)
Subject: silence a warning
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=8549f708d6eda70fbc7463db5dc24e00467e5547

silence a warning
---

diff --git a/FS/FS/cust_bill_pkg.pm b/FS/FS/cust_bill_pkg.pm
index 2aa2a6fab..298e234ec 100644
--- a/FS/FS/cust_bill_pkg.pm
+++ b/FS/FS/cust_bill_pkg.pm
@@ -1014,10 +1014,12 @@ sub usage {
 
     my $sql = 'SELECT SUM(COALESCE(amount,0)) FROM cust_bill_pkg_detail '.
               ' WHERE billpkgnum = '. $self->billpkgnum;
-    if ($classnum =~ /^(\d+)$/) {
-      $sql .= " AND classnum = $1";
-    } elsif (defined($classnum) and $classnum eq '') {
-      $sql .= " AND classnum IS NULL";
+    if (defined $classnum) {
+      if ($classnum =~ /^(\d+)$/) {
+        $sql .= " AND classnum = $1";
+      } elsif (defined($classnum) and $classnum eq '') {
+        $sql .= " AND classnum IS NULL";
+      }
     }
 
     my $sth = dbh->prepare($sql) or die dbh->errstr;