projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
4363c9a
)
silence a warning
author
Mark Wells
<mark@freeside.biz>
Tue, 24 Feb 2015 03:13:33 +0000
(19:13 -0800)
committer
Mark Wells
<mark@freeside.biz>
Tue, 24 Feb 2015 03:13:33 +0000
(19:13 -0800)
FS/FS/cust_bill_pkg.pm
patch
|
blob
|
history
diff --git
a/FS/FS/cust_bill_pkg.pm
b/FS/FS/cust_bill_pkg.pm
index
2aa2a6f
..
298e234
100644
(file)
--- 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;
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;
}
my $sth = dbh->prepare($sql) or die dbh->errstr;