diff options
author | Ivan Kohler <ivan@freeside.biz> | 2017-06-14 11:00:20 -0700 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2017-06-14 11:00:20 -0700 |
commit | 12b91e6f2cbf37644b77e42d7353fab325b6a71d (patch) | |
tree | fbfdb4ee95c71f02fa93abd76d36949e51f75587 /FS/FS/cust_main.pm | |
parent | d040dd06eb4b4bd1d5991445038296f952a38d13 (diff) |
fix error on changing customer when there isn't an implicit contact, RT#76405
Diffstat (limited to 'FS/FS/cust_main.pm')
-rw-r--r-- | FS/FS/cust_main.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm index 23d54b6..f8157c4 100644 --- a/FS/FS/cust_main.pm +++ b/FS/FS/cust_main.pm @@ -1523,8 +1523,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 ) { |