diff options
| author | ivan <ivan> | 2002-12-14 21:18:17 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2002-12-14 21:18:17 +0000 |
| commit | edca385313aadd4c43b20575580c7beaa10d3575 (patch) | |
| tree | bcf53ad6c843f4e5e8f52846c06b646a2aa731b6 | |
| parent | 5d235092e3d3e31d404b6e1db2ff8ec30098c2af (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 67e0709ce..9ec59011d 100644 --- a/FS/FS/cust_svc.pm +++ b/FS/FS/cust_svc.pm @@ -221,6 +221,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, @@ -228,7 +229,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 |