X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;ds=sidebyside;f=FS%2FFS%2Fcontact.pm;h=d6869abc83151930d4cf5f01cc3b2710b712efce;hb=368ed08e24400e9d1faf401a1e4e23ea54d2c969;hp=81dfdbc015ef889213a6b262e1a067b57648f61f;hpb=d5988a9f7a3617de33da3058f2e9f1151b24420e;p=freeside.git

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->$_('');
   }