diff options
| author | ivan <ivan> | 2002-02-12 18:56:16 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2002-02-12 18:56:16 +0000 |
| commit | 98c7a62610134dee28e0f3e7a3ab6cb3ac8de5ca (patch) | |
| tree | 33fcef78bfa2ab7f0258de620e95e8fd5d0b37cd /FS/FS | |
| parent | c493d99b65cf3b1cc05ea5d7a61214dba563569f (diff) | |
more information in "cant send invoice email" error message
Diffstat (limited to 'FS/FS')
| -rw-r--r-- | FS/FS/cust_bill.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/FS/FS/cust_bill.pm b/FS/FS/cust_bill.pm index 4306ea4..943c7b3 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 |