#my @print_text = $cust_bill->print_text; #( date )
my @invoicing_list = $self->cust_main->invoicing_list;
if ( grep { $_ ne 'POST' } @invoicing_list ) { #email invoice
+ #false laziness w/FS::cust_pay::delete
#$ENV{SMTPHOSTS} = $smtpmachine;
$ENV{MAILADDRESS} = $invoice_from;
my $header = new Mail::Header ( [
my $message = new Mail::Internet (
'Header' => $header,
'Body' => [ $self->print_text ], #( date)
- #'Debug' => 1,
);
$!=0;
$message->smtpsend( Host => $smtpmachine )
=head1 VERSION
-$Id: cust_bill.pm,v 1.21 2002-03-07 14:10:10 ivan Exp $
+$Id: cust_bill.pm,v 1.23 2002-03-18 19:49:10 ivan Exp $
=head1 BUGS