summaryrefslogtreecommitdiff
path: root/FS/FS/svc_Common.pm
diff options
context:
space:
mode:
authorIvan Kohler <ivan@freeside.biz>2015-04-30 06:10:11 -0700
committerIvan Kohler <ivan@freeside.biz>2015-04-30 06:10:11 -0700
commit8c974f743b0312b5dc9ef26f403b937abb5003d3 (patch)
tree3c901f81cdc378c4f28c57678f6dbe579b534590 /FS/FS/svc_Common.pm
parent47cb646c89d4a798d35063f04db39c707eac4f4c (diff)
service dependencies: cust_svc_unprovision_restrict, RT#33685
Diffstat (limited to 'FS/FS/svc_Common.pm')
-rw-r--r--FS/FS/svc_Common.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/FS/FS/svc_Common.pm b/FS/FS/svc_Common.pm
index b1f9d146f..8d3b5353e 100644
--- a/FS/FS/svc_Common.pm
+++ b/FS/FS/svc_Common.pm
@@ -395,7 +395,8 @@ sub delete {
local $FS::UID::AutoCommit = 0;
my $dbh = dbh;
- my $error = $self->predelete_hook_first
+ my $error = $self->cust_svc->check_part_svc_link_unprovision
+ || $self->predelete_hook_first
|| $self->SUPER::delete
|| $self->export('delete', @$export_args)
|| $self->return_inventory