diff options
author | Christopher Burger <burgerc@freeside.biz> | 2018-08-08 19:35:34 -0400 |
---|---|---|
committer | Christopher Burger <burgerc@freeside.biz> | 2018-08-08 19:35:34 -0400 |
commit | a3c654c1ae9ea07726aba9899a9b2e1d4dbd12c6 (patch) | |
tree | b429165bf91d1193b064a899eb22118bf907273c /FS | |
parent | 038b31793f290f65222ae748df05e703c6ae035d (diff) |
RT# 34134 - updated select invoice to actually pay the invoice being selected not the oldest one.
Diffstat (limited to 'FS')
-rw-r--r-- | FS/FS/cust_main/Billing_Batch.pm | 3 | ||||
-rw-r--r-- | FS/FS/cust_pay_batch.pm | 1 |
2 files changed, 3 insertions, 1 deletions
diff --git a/FS/FS/cust_main/Billing_Batch.pm b/FS/FS/cust_main/Billing_Batch.pm index eb66436ff..70dc28892 100644 --- a/FS/FS/cust_main/Billing_Batch.pm +++ b/FS/FS/cust_main/Billing_Batch.pm @@ -55,7 +55,8 @@ sub batch_card { return; } - my $invnum = delete $options{invnum}; + #my $invnum = delete $options{invnum}; + my $invnum = $options{invnum}; #pay fields should all come from either cust_payby or options, not both # in theory, could just pass payby, and use it to select cust_payby, diff --git a/FS/FS/cust_pay_batch.pm b/FS/FS/cust_pay_batch.pm index d29c6d055..614c11753 100644 --- a/FS/FS/cust_pay_batch.pm +++ b/FS/FS/cust_pay_batch.pm @@ -302,6 +302,7 @@ sub approve { '_date' => $new->_date, 'usernum' => $new->usernum, 'batchnum' => $new->batchnum, + 'invnum' => $old->invnum, 'gatewaynum' => $opt{'gatewaynum'}, 'processor' => $opt{'processor'}, 'auth' => $opt{'auth'}, |