projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
438c813
)
RT# 79352 - keep original email if all new emails are attached to other contacts...
author
Christopher Burger
<burgerc@freeside.biz>
Tue, 22 Jan 2019 15:59:45 +0000
(10:59 -0500)
committer
Christopher Burger
<burgerc@freeside.biz>
Tue, 22 Jan 2019 15:59:45 +0000
(10:59 -0500)
FS/FS/contact.pm
patch
|
blob
|
history
diff --git
a/FS/FS/contact.pm
b/FS/FS/contact.pm
index
f59fef9
..
13f07a2
100644
(file)
--- a/
FS/FS/contact.pm
+++ b/
FS/FS/contact.pm
@@
-468,6
+468,13
@@
sub replace {
}
}
+ ## were all emails duplicates? if so reset original emails
+ if (scalar @contact_emails < 1 && scalar (keys %contact_nums) > 1) {
+ foreach (qsearch('contact_email', {'contactnum' => $self->contactnum})) {
+ push @contact_emails, $_->emailaddress;
+ }
+ }
+
my $emails = join(' , ', @contact_emails);
$self->emailaddress($emails);
my $emails = join(' , ', @contact_emails);
$self->emailaddress($emails);