diff options
| author | ivan <ivan> | 2003-06-09 11:11:21 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2003-06-09 11:11:21 +0000 |
| commit | 19270ddc47dead26e94d01a78dd4a5e8313ffdac (patch) | |
| tree | 1d4acf049f1ebd70cb3998e09ab9a4a8c7792445 | |
| parent | 9bdd5507fab070864ecc3ebacd1f8c7f8a0b9b3c (diff) | |
add "$ignore_quantity" bypass
| -rw-r--r-- | FS/FS/cust_svc.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/FS/FS/cust_svc.pm b/FS/FS/cust_svc.pm index 8ac806519..c0cb6f4e9 100644 --- a/FS/FS/cust_svc.pm +++ b/FS/FS/cust_svc.pm @@ -1,7 +1,7 @@ package FS::cust_svc; use strict; -use vars qw( @ISA ); +use vars qw( @ISA $ignore_quantity ); use Carp qw( cluck ); use FS::Record qw( qsearch qsearchs dbh ); use FS::cust_pkg; @@ -17,6 +17,8 @@ use FS::part_export; @ISA = qw( FS::Record ); +$ignore_quantity = 0; + sub _cache { my $self = shift; my ( $hashref, $cache ) = @_; @@ -229,7 +231,7 @@ sub check { }); return "Already ". scalar(@cust_svc). " ". $part_svc->svc. " services for pkgnum ". $self->pkgnum - if scalar(@cust_svc) >= $quantity; + if scalar(@cust_svc) >= $quantity && (!$ignore_quantity || !$quantity); } ''; #no error |