From c145d0efaf3c9d43ca6cad0ec36342f92a6dd646 Mon Sep 17 00:00:00 2001
From: Ivan Kohler <ivan@freeside.biz>
Date: Wed, 31 May 2017 18:25:47 -0700
Subject: [PATCH] fix self-service info edit turning off self-service contact
 access, RT#76209

---
 FS/FS/cust_main.pm | 8 ++++++++
 1 file changed, 8 insertions(+)

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