[freeside-commits] branch FREESIDE_4_BRANCH updated. 4e3bc3a3a49cca7f56154b60ed003371606c4848

[Ivan]

The branch, FREESIDE_4_BRANCH has been updated
       via  4e3bc3a3a49cca7f56154b60ed003371606c4848 (commit)
      from  9ae057172c76a6f1a445318d2186e6f255e7b716 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 4e3bc3a3a49cca7f56154b60ed003371606c4848
Author: Ivan Kohler <ivan at freeside.biz>
Date:   Wed May 31 18:25:49 2017 -0700

    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 61ecdc8..5956314 100644
--- a/FS/FS/cust_main.pm
+++ b/FS/FS/cust_main.pm
@@ -1506,6 +1506,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 ) {

-----------------------------------------------------------------------

Summary of changes:
 FS/FS/cust_main.pm |    8 ++++++++
 1 file changed, 8 insertions(+)