From: Ivan Kohler <ivan@freeside.biz>
Date: Thu, 1 Jun 2017 01:25:47 +0000 (-0700)
Subject: fix self-service info edit turning off self-service contact access, RT#76209
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=c145d0efaf3c9d43ca6cad0ec36342f92a6dd646

fix self-service info edit turning off self-service contact access, RT#76209
---

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 ) {