diff options
| author | Mark Wells <mark@freeside.biz> | 2015-12-14 13:40:17 -0800 |
|---|---|---|
| committer | Mark Wells <mark@freeside.biz> | 2015-12-14 13:40:17 -0800 |
| commit | b3db3e68f602f3ca395a6bc272a4de6fef2d0895 (patch) | |
| tree | dbce2110be4a1c3114119910114e8c654180188b /httemplate/edit/process | |
| parent | f6c324e36edfbab5243c8b714ce34f04ad5bca91 (diff) | |
backport refund reasons, #39398
Diffstat (limited to 'httemplate/edit/process')
| -rwxr-xr-x | httemplate/edit/process/cust_refund.cgi | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/httemplate/edit/process/cust_refund.cgi b/httemplate/edit/process/cust_refund.cgi index 0fee6ed30..6ad468b6c 100755 --- a/httemplate/edit/process/cust_refund.cgi +++ b/httemplate/edit/process/cust_refund.cgi @@ -33,8 +33,13 @@ my $payby = $cgi->param('payby'); die "access denied" unless $FS::CurrentUser::CurrentUser->refund_access_right($payby); -my $error = ''; -if ( $payby =~ /^(CARD|CHEK)$/ ) { +$cgi->param('reasonnum') =~ /^(-?\d+)$/ or die "Illegal reasonnum"; +my ($reasonnum, $error) = $m->comp('/misc/process/elements/reason'); +$cgi->param('reasonnum', $reasonnum) unless $error; + +if ( $error ) { + # do nothing +} elsif ( $payby =~ /^(CARD|CHEK)$/ ) { my %options = (); my $bop = $FS::payby::payby2bop{$1}; $cgi->param('refund') =~ /^(\d*)(\.\d{2})?$/ |