diff options
| author | ivan <ivan> | 2002-10-04 12:10:37 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2002-10-04 12:10:37 +0000 |
| commit | 882e5362d78ec17925b77f6bc95789585ed35883 (patch) | |
| tree | f4986677869fedccdbc785d3ed6acf79e7939dd4 | |
| parent | 54733ad0d4e802f8076216ce68e6b72123481af2 (diff) | |
default for customers with no invoices
was: print
is now: send email to invoice from address
| -rw-r--r-- | FS/FS/cust_bill.pm | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/FS/FS/cust_bill.pm b/FS/FS/cust_bill.pm index ca0caf2e6..0d42d2263 100644 --- a/FS/FS/cust_bill.pm +++ b/FS/FS/cust_bill.pm @@ -373,7 +373,11 @@ sub send { my @print_text = $self->print_text('', $template); my @invoicing_list = $self->cust_main->invoicing_list; - if ( grep { $_ ne 'POST' } @invoicing_list ) { #email invoice + if ( grep { $_ ne 'POST' } @invoicing_list or !@invoicing_list ) { #email + + #better to notify this person than silence + @invoicing_list = ($invoice_from) unless @invoicing_list; + #false laziness w/FS::cust_pay::delete & fs_signup_server && ::realtime_card #$ENV{SMTPHOSTS} = $smtpmachine; $ENV{MAILADDRESS} = $invoice_from; @@ -398,7 +402,7 @@ sub send { } - if ( ! @invoicing_list || grep { $_ eq 'POST' } @invoicing_list ) { #postal + if ( grep { $_ eq 'POST' } @invoicing_list ) { #postal open(LPR, "|$lpr") or return "Can't open pipe to $lpr: $!"; print LPR @print_text; @@ -1130,7 +1134,7 @@ sub print_text { =head1 VERSION -$Id: cust_bill.pm,v 1.41.2.3 2002-09-17 00:40:05 ivan Exp $ +$Id: cust_bill.pm,v 1.41.2.4 2002-10-04 12:10:37 ivan Exp $ =head1 BUGS |