RT# 79352 - keep original email if all new emails are attached to other contacts on contact replace.

1 files changed, 7 insertions, 0 deletions

diff --git a/FS/FS/contact.pm b/FS/FS/contact.pm
index f59fef927..13f07a283 100644
--- a/FS/FS/contact.pm
+++ b/FS/FS/contact.pm
@@ -468,6 +468,13 @@ sub replace {
 
     }
 
+    ## were all emails duplicates?  if so reset original emails
+    if (scalar @contact_emails < 1 && scalar (keys %contact_nums) > 1) {
+      foreach (qsearch('contact_email', {'contactnum' => $self->contactnum})) {
+        push @contact_emails, $_->emailaddress;
+      }
+    }
+
     my $emails = join(' , ', @contact_emails);
     $self->emailaddress($emails);