X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fcust_main.pm;h=640eee359826cc993a6b484d9019903c107d4f42;hp=19a5816566b53f71e6ef2be7431d6dea663cb68a;hb=c145d0efaf3c9d43ca6cad0ec36342f92a6dd646;hpb=b5e8459bb1b5775edb0f55b05a9a7b1021b49621

diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm
index 19a581656..640eee359 100644
--- a/FS/FS/cust_main.pm
+++ b/FS/FS/cust_main.pm
@@ -1509,6 +1509,14 @@ sub replace {
     $implicit_contact->set('emailaddress', $email);
     $implicit_contact->set('invoice_dest', 'Y');
     $implicit_contact->set('custnum', $self->custnum);
+    my $i_cust_contact =
+      qsearchs('cust_contact', {
+                                 contactnum  => $implicit_contact->contactnum,
+                                 custnum     => $self->custnum,
+                               }
+      );
+    $implicit_contact->set($_, $i_cust_contact->$_)
+      foreach qw( classnum selfservice_access comment );
 
     my $error;
     if ( $implicit_contact->contactnum ) {