diff options
| -rw-r--r-- | FS/FS/cust_main.pm | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm index 0165bc479..7e1a25d23 100644 --- a/FS/FS/cust_main.pm +++ b/FS/FS/cust_main.pm @@ -32,7 +32,6 @@ use Digest::MD5 qw(md5_base64); use Date::Format; #use Date::Manip; use File::Temp; #qw( tempfile ); -use Email::Address; use Business::CreditCard 0.28; use FS::UID qw( getotaker dbh driver_name ); use FS::Record qw( qsearchs qsearch dbdef regexp_sql ); @@ -3572,17 +3571,15 @@ sub contact_list_email { # unlike on 4.x, we have a separate list of invoice email # destinations. # make sure they're not redundant with contact emails - $emails{ $contact_email->emailaddress } = - Email::Address->new( $contact->firstlast, - $contact_email->emailaddress - )->format; + my $dest = $contact->firstlast . ' <' . $contact_email->emailaddress . '>'; + $emails{ $contact_email->emailaddress } = $dest; } } } if ( $and_invoice ) { foreach my $email ($self->invoicing_list_emailonly) { - $emails{ $email } ||= - Email::Address->new( $self->name_short, $email )->format; + my $dest = $self->name_short . ' <' . $email . '>'; + $emails{ $email } ||= $dest; } } values %emails; |