diff options
author | ivan <ivan> | 2002-12-14 21:18:23 +0000 |
---|---|---|
committer | ivan <ivan> | 2002-12-14 21:18:23 +0000 |
commit | edbcab06936c79a4f8d4edc0d0222139fa8c312c (patch) | |
tree | b8aed5acda7458a64356f48ae7244a0563033238 | |
parent | 64d21fc13eddf275f614f54ff9e17eca74dcd858 (diff) |
fix for auditing packages
-rw-r--r-- | FS/FS/cust_svc.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/FS/FS/cust_svc.pm b/FS/FS/cust_svc.pm index 7516be599..8bcb0fcca 100644 --- a/FS/FS/cust_svc.pm +++ b/FS/FS/cust_svc.pm @@ -220,6 +220,7 @@ sub check { # or new FS::pkg_svc ( { 'pkgpart' => $cust_pkg->pkgpart, # 'svcpart' => $self->svcpart, # 'quantity' => 0 } ); + my $quantity = $pkg_svc ? $pkg_svc->quantity : 0; my @cust_svc = qsearch('cust_svc', { 'pkgnum' => $self->pkgnum, @@ -227,7 +228,7 @@ sub check { }); return "Already ". scalar(@cust_svc). " ". $part_svc->svc. " services for pkgnum ". $self->pkgnum - if scalar(@cust_svc) >= $pkg_svc->quantity; + if scalar(@cust_svc) >= $quantity; } ''; #no error |