projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
RT# 83044 - fixed cc refund issues
[freeside.git]
/
httemplate
/
edit
/
process
/
cust_refund.cgi
diff --git
a/httemplate/edit/process/cust_refund.cgi
b/httemplate/edit/process/cust_refund.cgi
index
25f6e00
..
f248d54
100755
(executable)
--- a/
httemplate/edit/process/cust_refund.cgi
+++ b/
httemplate/edit/process/cust_refund.cgi
@@
-55,7
+55,7
@@
if ( $error ) {
'CHEK' => 'electronic check (ACH)',
);
'CHEK' => 'electronic check (ACH)',
);
-my( $cust_pay, $cust_payby, $payinfo, $paycvv, $month, $year, $payname );
+my( $cust_pay, $cust_payby, $payinfo, $paycvv, $month, $year, $payname
, $paycardtype
);
my $paymask = '';
## get cust pay info if paynum exists
my $paymask = '';
## get cust pay info if paynum exists
@@
-89,6
+89,7
@@
if ( (my $custpaybynum = scalar($cgi->param('custpaybynum'))) > 0 ) {
} elsif ( $cgi->param('paynum') > 0) {
$payinfo = $cust_pay->payinfo;
} elsif ( $cgi->param('paynum') > 0) {
$payinfo = $cust_pay->payinfo;
+ $paycardtype = $cust_pay->paycardtype;
$payname = $cust_pay->payname;
} else {
$payname = $cust_pay->payname;
} else {
@@
-235,6
+236,10
@@
if ( (my $custpaybynum = scalar($cgi->param('custpaybynum'))) > 0 ) {
$_, scalar($cgi->param($_))
} fields('cust_refund');
$_, scalar($cgi->param($_))
} fields('cust_refund');
+ $hash{'payinfo'} = $payinfo;
+ $hash{'paymask'} = $paymask;
+ $hash{'paycardtype'} = $paycardtype;
+
## unapply payment before creating refund.
while ( $cust_pay && $cust_pay->unapplied < $refund ) {
my @cust_bill_pay = $cust_pay->cust_bill_pay;
## unapply payment before creating refund.
while ( $cust_pay && $cust_pay->unapplied < $refund ) {
my @cust_bill_pay = $cust_pay->cust_bill_pay;