X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fsvc_acct.pm;fp=FS%2FFS%2Fsvc_acct.pm;h=67fce41295909c196eba2762494c0049b348f1ae;hp=c2f5d7122cef0819532a53e3830f43a05d623557;hb=6fd39bf8dfa989aaedea59e5e3cd609642f9e024;hpb=808fdb0f9c2b3468cda54cc92a945a1fcd9ee7f4

diff --git a/FS/FS/svc_acct.pm b/FS/FS/svc_acct.pm
index c2f5d7122..67fce4129 100644
--- a/FS/FS/svc_acct.pm
+++ b/FS/FS/svc_acct.pm
@@ -847,6 +847,17 @@ sub delete {
     }
   }
 
+  foreach my $svc_phone (
+    qsearch( 'svc_phone', { 'forward_svcnum' => $self->svcnum })
+  ) {
+    $svc_phone->set('forward_svcnum', '');
+    my $error = $svc_phone->replace;
+    if ( $error ) {
+      $dbh->rollback if $oldAutoCommit;
+      return $error;
+    }
+  }
+
   my $error = $self->delete_password_history
            || $self->SUPER::delete; # usergroup here
   if ( $error ) {