projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
c493d99
)
more information in "cant send invoice email" error message
author
ivan
<ivan>
Tue, 12 Feb 2002 18:56:16 +0000
(18:56 +0000)
committer
ivan
<ivan>
Tue, 12 Feb 2002 18:56:16 +0000
(18:56 +0000)
FS/FS/cust_bill.pm
patch
|
blob
|
history
diff --git
a/FS/FS/cust_bill.pm
b/FS/FS/cust_bill.pm
index
4306ea4
..
943c7b3
100644
(file)
--- 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
'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 ) {
#} elsif ( grep { $_ eq 'POST' } @invoicing_list ) {
} elsif ( ! @invoicing_list || grep { $_ eq 'POST' } @invoicing_list ) {
@@
-878,7
+880,7
@@
sub print_text {
=head1 VERSION
=head1 VERSION
-$Id: cust_bill.pm,v 1.1
8 2002-02-10 02:16:4
6 ivan Exp $
+$Id: cust_bill.pm,v 1.1
9 2002-02-12 18:56:1
6 ivan Exp $
=head1 BUGS
=head1 BUGS