From: ivan <ivan>
Date: Tue, 12 Feb 2002 18:56:16 +0000 (+0000)
Subject: more information in "cant send invoice email" error message
X-Git-Tag: freeside_1_4_0pre11~58
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=98c7a62610134dee28e0f3e7a3ab6cb3ac8de5ca;p=freeside.git

more information in "cant send invoice email" error message
---

diff --git a/FS/FS/cust_bill.pm b/FS/FS/cust_bill.pm
index 4306ea477..943c7b3ec 100644
--- a/FS/FS/cust_bill.pm
+++ b/FS/FS/cust_bill.pm
@@ -403,7 +403,9 @@ sub send {
       'Body' => [ $self->print_text ], #( date)
     );
     $message->smtpsend
-      or return "Can't send invoice email to server $smtpmachine!";
+      or return "(customer # ". $self->custnum. ") can't send invoice email".
+                " for ". join(', ', grep { $_ ne 'POST' } @invoicing_list ).
+                " to server $smtpmachine!";
 
   #} elsif ( grep { $_ eq 'POST' } @invoicing_list ) {
   } elsif ( ! @invoicing_list || grep { $_ eq 'POST' } @invoicing_list ) {
@@ -878,7 +880,7 @@ sub print_text {
 
 =head1 VERSION
 
-$Id: cust_bill.pm,v 1.18 2002-02-10 02:16:46 ivan Exp $
+$Id: cust_bill.pm,v 1.19 2002-02-12 18:56:16 ivan Exp $
 
 =head1 BUGS