X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fcust_pay.pm;h=c0a254119e1e997fd7fc21e62eff8e913ee63513;hp=b0a1e4b1288b140e4be20ad828268bc73a076767;hb=4fd1280540e2c9b90fa59c0c32d691f5222f65d4;hpb=93a716370d8a53ec1a301115ae543eed5961e0c0 diff --git a/FS/FS/cust_pay.pm b/FS/FS/cust_pay.pm index b0a1e4b12..c0a254119 100644 --- a/FS/FS/cust_pay.pm +++ b/FS/FS/cust_pay.pm @@ -241,6 +241,8 @@ sub insert { 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 } ) @@ -393,6 +395,8 @@ sub insert { $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'; @@ -650,6 +654,8 @@ sub send_receipt { 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; @@ -712,7 +718,11 @@ sub send_receipt { =item send_message_receipt sends out a message receipt. -send_message_receipt($cust_main, $msgnum); +$error = $self->send_message_receipt( + 'cust_main' => $cust_main, + 'cust_bill' => $opt->{cust_bill}, + 'msgnum' => $conf->config('payment_receipt_msgnum', $cust_main->agentnum) + ); =cut @@ -727,7 +737,8 @@ sub send_message_receipt { my %substitutions = (); $substitutions{invnum} = $cust_bill->invnum if $cust_bill; -# $substitutions{invnum} = $opt->{cust_bill}->invnum if $opt->{cust_bill}; + $substitutions{'processing_fee'} = $self->{'processing_fee'}; + my $msg_template = qsearchs('msg_template',{ msgnum => $msgnum}); unless ($msg_template) {