local $FS::UID::AutoCommit = 0;
my $dbh = dbh;
+ my $conf = new FS::Conf;
+
my $cust_bill;
if ( $self->invnum ) {
$cust_bill = qsearchs('cust_bill', { 'invnum' => $self->invnum } )
return '' unless $conf->config_bool('payment_receipt', $cust_main->agentnum);
+ return '' if ($conf->config_bool('allow_payment_receipt_noemail', $cust_main->agentnum) && $cust_main->paymentreceipt_noemail);
+
my @invoicing_list = $cust_main->invoicing_list_emailonly;
return '' unless @invoicing_list;
'cust_main' => $cust_main,
'cust_bill' => $opt->{cust_bill},
'cust_pkg' => $opt->{cust_pkg},
- 'invoicing_list' => @invoicing_list,
+ 'invoicing_list' => \@invoicing_list,
'msgnum' => $conf->config('payment_receipt_msgnum', $cust_main->agentnum)
);
$error = $queue->insert(%opt);
}
-
-
-
}
warn "send_receipt: $error\n" if $error;
'cust_main' => $cust_main,
'cust_bill' => $opt->{cust_bill},
'cust_pkg' => $opt->{cust_pkg},
- 'invoicing_list' => @invoicing_list,
+ 'invoicing_list' => \@invoicing_list,
'msgnum' => $conf->config('payment_receipt_msgnum', $cust_main->agentnum)
);
my $cust_main = $opt{'cust_main'};
my $cust_bill = $opt{'cust_bill'};
my $cust_pkg = $opt{'cust_pkg'};
- my @invoicing_list = $opt{'invoicing_list'};
+ my @invoicing_list = ref($opt{'invoicing_list'}) ? @{ $opt{'invoicing_list'} } : ( $opt{'invoicing_list'} );
my $msgnum = $opt{'msgnum'};
my $error = '';