projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
ecd038f
)
Revert "Format email addresses w/Email::Address instead of ad-hoc, fixes issues email...
author
Ivan Kohler
<ivan@freeside.biz>
Tue, 13 Dec 2016 20:39:50 +0000
(12:39 -0800)
committer
Ivan Kohler
<ivan@freeside.biz>
Tue, 13 Dec 2016 20:39:50 +0000
(12:39 -0800)
This reverts commit
145bc8c83c8a132e5cd171a34b0f45948674d535
.
FS/FS/cust_main.pm
patch
|
blob
|
history
diff --git
a/FS/FS/cust_main.pm
b/FS/FS/cust_main.pm
index
51bde33
..
ec5f4ff
100644
(file)
--- a/
FS/FS/cust_main.pm
+++ b/
FS/FS/cust_main.pm
@@
-20,17
+20,16
@@
use base qw( FS::cust_main::Packages
require 5.006;
use strict;
use Carp;
require 5.006;
use strict;
use Carp;
-use Try::Tiny;
use Scalar::Util qw( blessed );
use Scalar::Util qw( blessed );
-use List::Util qw(min);
-use Tie::IxHash;
-use File::Temp; #qw( tempfile );
-use Data::Dumper;
use Time::Local qw(timelocal);
use Time::Local qw(timelocal);
+use Data::Dumper;
+use Tie::IxHash;
use Date::Format;
#use Date::Manip;
use Date::Format;
#use Date::Manip;
-use
Email::Address
;
+use
File::Temp; #qw( tempfile )
;
use Business::CreditCard 0.28;
use Business::CreditCard 0.28;
+use List::Util qw(min);
+use Try::Tiny;
use FS::UID qw( dbh driver_name );
use FS::Record qw( qsearchs qsearch dbdef regexp_sql );
use FS::Cursor;
use FS::UID qw( dbh driver_name );
use FS::Record qw( qsearchs qsearch dbdef regexp_sql );
use FS::Cursor;
@@
-3061,9
+3060,8
@@
sub contact_list_email {
my @emails;
foreach my $contact (@contacts) {
foreach my $contact_email ($contact->contact_email) {
my @emails;
foreach my $contact (@contacts) {
foreach my $contact_email ($contact->contact_email) {
- push @emails, Email::Address->new( $contact->firstlast,
- $contact_email->emailaddress
- )->format;
+ push @emails,
+ $contact->firstlast . ' <' . $contact_email->emailaddress . '>';
}
}
@emails;
}
}
@emails;