From 98c7a62610134dee28e0f3e7a3ab6cb3ac8de5ca Mon Sep 17 00:00:00 2001 From: ivan Date: Tue, 12 Feb 2002 18:56:16 +0000 Subject: [PATCH] more information in "cant send invoice email" error message --- FS/FS/cust_bill.pm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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 -- 2.11.0