projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
b5e8459
)
fix self-service info edit turning off self-service contact access, RT#76209
author
Ivan Kohler
<ivan@freeside.biz>
Thu, 1 Jun 2017 01:25:47 +0000
(18:25 -0700)
committer
Ivan Kohler
<ivan@freeside.biz>
Thu, 1 Jun 2017 01:25:47 +0000
(18:25 -0700)
FS/FS/cust_main.pm
patch
|
blob
|
history
diff --git
a/FS/FS/cust_main.pm
b/FS/FS/cust_main.pm
index
19a5816
..
640eee3
100644
(file)
--- 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);
$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 ) {
my $error;
if ( $implicit_contact->contactnum ) {