[freeside-commits] branch FREESIDE_3_BRANCH updated. 3399a25eba1da01491ede8a86cc99b5be0b1dfe8
Ivan
ivan at 420.am
Thu Nov 5 10:44:23 PST 2015
The branch, FREESIDE_3_BRANCH has been updated
via 3399a25eba1da01491ede8a86cc99b5be0b1dfe8 (commit)
from 2b3eb91eaa841175eeb9f998a4457427670e7df0 (commit)
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.
- Log -----------------------------------------------------------------
commit 3399a25eba1da01491ede8a86cc99b5be0b1dfe8
Author: Ivan Kohler <ivan at freeside.biz>
Date: Thu Nov 5 10:44:21 2015 -0800
pass an invoice_number for void/refund when available, RT#37292
diff --git a/FS/FS/cust_main/Billing_Realtime.pm b/FS/FS/cust_main/Billing_Realtime.pm
index 06e1a4f..bb2b41f 100644
--- a/FS/FS/cust_main/Billing_Realtime.pm
+++ b/FS/FS/cust_main/Billing_Realtime.pm
@@ -11,6 +11,7 @@ use FS::Misc qw( send_email );
use FS::payby;
use FS::cust_pay;
use FS::cust_pay_pending;
+use FS::cust_bill_pay;
use FS::cust_refund;
use FS::banned_pay;
@@ -1357,6 +1358,8 @@ sub realtime_refund_bop {
warn " $_ => $options{$_}\n" foreach keys %options;
}
+ my %content = ();
+
###
# look up the original payment and optionally a gateway for that payment
###
@@ -1375,6 +1378,9 @@ sub realtime_refund_bop {
or return "Unknown paynum $options{'paynum'}";
$amount ||= $cust_pay->paid;
+ my @cust_bill_pay = qsearch('cust_bill_pay', { paynum=>$cust_pay->paynum });
+ $content{'invoice_number'} = $cust_bill_pay[0]->invnum if @cust_bill_pay;
+
if ( $cust_pay->get('processor') ) {
($gatewaynum, $processor, $auth, $order_number) =
(
@@ -1447,7 +1453,8 @@ sub realtime_refund_bop {
eval "use $namespace";
die $@ if $@;
- my %content = (
+ %content = (
+ %content,
'type' => $options{method},
'login' => $login,
'password' => $password,
-----------------------------------------------------------------------
Summary of changes:
FS/FS/cust_main/Billing_Realtime.pm | 9 ++++++++-
1 file changed, 8 insertions(+), 1 deletion(-)
More information about the freeside-commits
mailing list