X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Fedit%2Fcust_refund.cgi;h=2b3e02614befb39daec2364b994752f3b257e7d2;hp=8955c7cee3c785d2c0770100d74191ac7519a506;hb=3ce7691203a7737406bf2d4442f7fd84b81f847e;hpb=15e561850b61b10a92a46d8f3e316d53d4970087;ds=sidebyside diff --git a/httemplate/edit/cust_refund.cgi b/httemplate/edit/cust_refund.cgi index 8955c7cee..2b3e02614 100755 --- a/httemplate/edit/cust_refund.cgi +++ b/httemplate/edit/cust_refund.cgi @@ -1,94 +1,95 @@ -<% +% +% +%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 < +% +% +% +%