diff options
author | Ivan Kohler <ivan@freeside.biz> | 2016-12-13 12:39:50 -0800 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2016-12-13 12:40:40 -0800 |
commit | 018cafeda5005d9b7832194a7b6ad311e4d31238 (patch) | |
tree | 7379e45bc8f88a83b0e8b307ca2ae6f214fc741d | |
parent | 2fd40e45e885c4261adaee743feb398bd11f4e8d (diff) |
Revert "Format email addresses w/Email::Address instead of ad-hoc, fixes issues emailing companies with commas, RT#73241"
This reverts commit 145bc8c83c8a132e5cd171a34b0f45948674d535.
-rw-r--r-- | FS/FS/cust_main.pm | 16 |
1 files changed, 7 insertions, 9 deletions
diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm index e1f73bf59..2b9115647 100644 --- 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; -use Try::Tiny; 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 Data::Dumper; +use Tie::IxHash; use Date::Format; #use Date::Manip; -use Email::Address; +use File::Temp; #qw( tempfile ); 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; @@ -3278,9 +3277,8 @@ sub contact_list_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; |