diff options
| author | Jonathan Prykop <jonathan@freeside.biz> | 2016-02-22 17:14:07 -0600 |
|---|---|---|
| committer | Jonathan Prykop <jonathan@freeside.biz> | 2016-02-23 08:36:37 -0600 |
| commit | 5fb8b90c0358e69523075a9dc8a153cd431a72db (patch) | |
| tree | 6daf94b37247b1325c1e300100187909d072cb5d /httemplate/edit/process/cust_refund.cgi | |
| parent | 1bb85d2484b3d9f45c2b1142951503ff1c54e2e9 (diff) | |
RT#39586 Manual check refunds cannot be unapplied [source_paynum field, reason bug fixes, link text]
Diffstat (limited to 'httemplate/edit/process/cust_refund.cgi')
| -rwxr-xr-x | httemplate/edit/process/cust_refund.cgi | 3 |
1 files changed, 1 insertions, 2 deletions
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 { |