From: Ivan Kohler <ivan@freeside.biz>
Date: Wed, 14 Jun 2017 18:00:23 +0000 (-0700)
Subject: fix error on changing customer when there isn't an implicit contact, RT#76405
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=893c5330eed4d2d8691cbdf89886a374efff2f05;hp=2aecf34ff195b9c33126f483eb96299700ec5039;p=freeside.git

fix error on changing customer when there isn't an implicit contact, RT#76405
---

diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm
index d11fdad48..f6c3ff78d 100644
--- a/FS/FS/cust_main.pm
+++ b/FS/FS/cust_main.pm
@@ -1520,8 +1520,10 @@ sub replace {
                                  custnum     => $self->custnum,
                                }
       );
-    $implicit_contact->set($_, $i_cust_contact->$_)
-      foreach qw( classnum selfservice_access comment );
+    if ( $i_cust_contact ) {
+      $implicit_contact->set($_, $i_cust_contact->$_)
+        foreach qw( classnum selfservice_access comment );
+    }
 
     my $error;
     if ( $implicit_contact->contactnum ) {