From: Ivan Kohler <ivan@freeside.biz>
Date: Wed, 22 Jul 2015 02:17:21 +0000 (-0700)
Subject: self-service API contact deletion fix, RT#37375
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=ec2f19b4484371dff04ec4a5313c7b7d2359cca8

self-service API contact deletion fix, RT#37375
---

diff --git a/FS/FS/ClientAPI/MyAccount/contact.pm b/FS/FS/ClientAPI/MyAccount/contact.pm
index 31bbb0cb1..ff29079c7 100644
--- a/FS/FS/ClientAPI/MyAccount/contact.pm
+++ b/FS/FS/ClientAPI/MyAccount/contact.pm
@@ -141,7 +141,7 @@ sub delete_contact {
   my $error = $cust_contact->delete;
   return { 'error' => $error } if $error;
 
-  unless ( $contact->cust_contact ) {
+  unless ( $contact->cust_contact || $contact->prospect_contact ) {
     $contact->delete;
   }