X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;ds=sidebyside;f=FS%2FFS%2Fsvc_Common.pm;fp=FS%2FFS%2Fsvc_Common.pm;h=8d3b5353ec1bcd654eb72c914d28d57e2486abfd;hb=8c974f743b0312b5dc9ef26f403b937abb5003d3;hp=b1f9d146f3415524c53c8ca58f011521cc627654;hpb=47cb646c89d4a798d35063f04db39c707eac4f4c;p=freeside.git

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