$dbh->commit or die $dbh->errstr if $oldAutoCommit;
+ $self->{'processing_fee'} = $options{'processing-fee'};
+
#payment receipt
my $trigger = $conf->config('payment_receipt-trigger',
$self->cust_main->agentnum) || 'cust_pay';
'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 = '';
my %substitutions = ();
$substitutions{invnum} = $cust_bill->invnum if $cust_bill;
+ $substitutions{'processing_fee'} = $self->{'processing_fee'};
+
my $msg_template = qsearchs('msg_template',{ msgnum => $msgnum});
unless ($msg_template) {