<% my $conf = new FS::Conf; my $custnum = $cgi->param('custnum'); my $refund = $cgi->param('refund'); my $payby = $cgi->param('payby'); my $reason = $cgi->param('reason'); my( $paynum, $cust_pay ) = ( '', '' ); if ( $cgi->param('paynum') =~ /^(\d+)$/ ) { $paynum = $1; $cust_pay = qsearchs('cust_pay', { paynum=>$paynum } ) or die "unknown payment # $paynum"; $refund ||= $cust_pay->unrefunded; if ( $custnum ) { die "payment # $paynum is not for specified customer # $custnum" unless $custnum == $cust_pay->custnum; } else { $custnum = $cust_pay->custnum; } } die "no custnum or paynum specified!" unless $custnum; my $_date = time; my $p1 = popurl(1); print header('Refund '. ucfirst(lc($payby)). ' payment', ''); print qq!Error: !, $cgi->param('error'), "" if $cgi->param('error'); print <config('countrydefault'));

END if ( $cust_pay ) { #false laziness w/FS/FS/cust_pay.pm my $payby = $cust_pay->payby; my $payinfo = $cust_pay->payinfo; $payby =~ s/^BILL$/Check/ if $payinfo; $payby =~ s/^CHEK$/Electronic check/; $payinfo = $cust_pay->payinfo_masked if $payby eq 'CARD'; print '
Payment'. ntable("#cccccc", 2). 'Amount$'. $cust_pay->paid. ''. 'Date'. time2str("%D",$cust_pay->_date). ''. 'Method'. ucfirst(lc($payby)). ' # '. $payinfo. ''; #false laziness w/FS/FS/cust_main::realtime_refund_bop if ( $cust_pay->paybatch =~ /^(\w+):(\w+)(:(\w+))?$/ ) { my ( $processor, $auth, $order_number ) = ( $1, $2, $4 ); print 'Processor'. $processor. ''; print 'Authorization'. $auth. '' if length($auth); print 'Order number'. $order_number. '' if length($order_number); } print ''; } print '
Refund'. ntable("#cccccc", 2). 'Date'. time2str("%D",$_date). ''; print qq!Amount\$!; print qq!Reason!; print <
END %>