From 15bce35bccac95bdc7649743787cf890d8790943 Mon Sep 17 00:00:00 2001
From: Christopher Burger <burgerc@freeside.biz>
Date: Tue, 23 Oct 2018 11:07:45 -0400
Subject: [PATCH] RT# 71289 - fixed error of saving duplicate data when editing
 contacts

---
 FS/FS/contact.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/FS/FS/contact.pm b/FS/FS/contact.pm
index 81dfdbc01..d6869abc8 100644
--- a/FS/FS/contact.pm
+++ b/FS/FS/contact.pm
@@ -434,11 +434,12 @@ sub replace {
   my $prospectnum = $self->prospectnum;
   $self->prospectnum('');
   my $custnum = $self->custnum;
-  $self->custnum('');
+  $self->custnum(''); $old->custnum(''); # remove because now stored cust_contact
 
   my %link_hash = ();
   for (qw( classnum comment selfservice_access invoice_dest message_dest )) {
     $link_hash{$_} = $self->get($_);
+    $old->$_('');  ##remove values from old record, causes problem with history
     $self->$_('');
   }
 
-- 
2.11.0