diff options
author | Mark Wells <mark@freeside.biz> | 2016-06-06 23:48:30 -0700 |
---|---|---|
committer | Mark Wells <mark@freeside.biz> | 2016-06-06 23:48:30 -0700 |
commit | 747af1b66a1e25325ee610c6f3a82441bddcd711 (patch) | |
tree | 0b3d4126c7200bfe956dcb80f888b5f66dd96e17 /FS/FS/cust_main.pm | |
parent | ce891927b64922ae7c305ca8c3793b8be1a3b909 (diff) |
fix linking of new customer contact to an existing email address, #25536
Diffstat (limited to 'FS/FS/cust_main.pm')
-rw-r--r-- | FS/FS/cust_main.pm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm index 68ddca2..335ecbf 100644 --- a/FS/FS/cust_main.pm +++ b/FS/FS/cust_main.pm @@ -555,7 +555,10 @@ sub insert { return $error; } } - + # since we set invoice_dest on all migrated prospect contacts (for now), + # don't process invoicing_list. + delete $options{'invoicing_list'}; + $invoicing_list = undef; } warn " setting contacts\n" @@ -579,8 +582,7 @@ sub insert { custnum => $self->custnum, }); $cust_contact->set('invoice_dest', 'Y'); - my $error = $cust_contact->contactnum ? - $cust_contact->replace : $cust_contact->insert; + my $error = $cust_contact->insert; if ( $error ) { $dbh->rollback if $oldAutoCommit; return "$error (linking to email address $dest)"; |