X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fedit%2Fprocess%2Fcust_refund.cgi;h=607f31dd1371a3752a3886e9566f2fa1603048db;hb=af1b255c779c5c6d0ddd354d670e6b909c26c4e3;hp=33bc886babee2baa6c493427061ebb4cf334fba1;hpb=9fa789e54fd4cce845242895b3036a220f16cba4;p=freeside.git diff --git a/httemplate/edit/process/cust_refund.cgi b/httemplate/edit/process/cust_refund.cgi index 33bc886ba..607f31dd1 100755 --- a/httemplate/edit/process/cust_refund.cgi +++ b/httemplate/edit/process/cust_refund.cgi @@ -39,6 +39,13 @@ $cgi->param('reasonnum') =~ /^(-?\d+)$/ or die "Illegal reasonnum"; my ($reasonnum, $error) = $m->comp('/misc/process/elements/reason'); $cgi->param('reasonnum', $reasonnum) unless $error; +if ( $cgi->param('batch') ) { + $error = "No batch download format configured that allows electronic refunds via batch processing." + unless (FS::pay_batch->can_handle_electronic_refunds && !$error); +} + +#die "my error\n".$error; + if ( $error ) { # do nothing } elsif ( $payby =~ /^(CARD|CHEK)$/ ) { @@ -53,7 +60,7 @@ if ( $error ) { '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 @@ -95,6 +102,10 @@ if ( $cgi->param('paynum') > 0) { $_, scalar($cgi->param($_)) } fields('cust_refund'); + $hash{'payinfo'} = $cust_main->payinfo; + $hash{'paymask'} = $cust_main->paymask; + $hash{'paycardtype'} = $cust_main->paycardtype; + ## unapply payment before creating refund. while ( $cust_pay && $cust_pay->unapplied < $refund ) { my @cust_bill_pay = $cust_pay->cust_bill_pay;