diff options
author | Mark Wells <mark@freeside.biz> | 2012-12-19 13:53:52 -0800 |
---|---|---|
committer | Mark Wells <mark@freeside.biz> | 2012-12-19 13:53:52 -0800 |
commit | e5c1e2e0ca42e5857b27890307bca616ee8982aa (patch) | |
tree | c0cd4151fede5a77a902f74cbc96a82dab1c8b49 /FS/FS/cust_pkg.pm | |
parent | 0f701fc214468f8fb242435893de3fe084ba63f5 (diff) |
ignore pkg_svc quantities when changing a customer location, #20588
Diffstat (limited to 'FS/FS/cust_pkg.pm')
-rw-r--r-- | FS/FS/cust_pkg.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/FS/FS/cust_pkg.pm b/FS/FS/cust_pkg.pm index 75a0d77..22a7b2c 100644 --- a/FS/FS/cust_pkg.pm +++ b/FS/FS/cust_pkg.pm @@ -2889,7 +2889,8 @@ sub transfer { } foreach my $cust_svc ($self->cust_svc) { - if($target{$cust_svc->svcpart} > 0) { + if($target{$cust_svc->svcpart} > 0 + or $FS::cust_svc::ignore_quantity) { # maybe should be a 'force' option $target{$cust_svc->svcpart}--; my $new = new FS::cust_svc { $cust_svc->hash }; $new->pkgnum($dest_pkgnum); |