From 5fb8b90c0358e69523075a9dc8a153cd431a72db Mon Sep 17 00:00:00 2001 From: Jonathan Prykop Date: Mon, 22 Feb 2016 17:14:07 -0600 Subject: RT#39586 Manual check refunds cannot be unapplied [source_paynum field, reason bug fixes, link text] --- httemplate/edit/process/cust_refund.cgi | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'httemplate/edit/process') diff --git a/httemplate/edit/process/cust_refund.cgi b/httemplate/edit/process/cust_refund.cgi index 6ad468b6c..8977ced20 100755 --- a/httemplate/edit/process/cust_refund.cgi +++ b/httemplate/edit/process/cust_refund.cgi @@ -47,12 +47,11 @@ if ( $error ) { my $refund = "$1$2"; $cgi->param('paynum') =~ /^(\d*)$/ or die "Illegal paynum!"; my $paynum = $1; - my $reason = $cgi->param('reason'); my $paydate = $cgi->param('exp_year'). '-'. $cgi->param('exp_month'). '-01'; $options{'paydate'} = $paydate if $paydate =~ /^\d{2,4}-\d{1,2}-01$/; $error = $cust_main->realtime_refund_bop( $bop, 'amount' => $refund, 'paynum' => $paynum, - 'reason' => $reason, + 'reasonnum' => scalar($cgi->param('reasonnum')), %options ); } else { my %hash = map { -- cgit v1.2.1