<% # use strict; use vars qw( $cgi $query $custnum $invnum $otaker $p1 $crednum $_date $amount $reason $cust_credit ); use Date::Format; use CGI; use CGI::Carp qw(fatalsToBrowser); use FS::UID qw(cgisuidsetup getotaker); use FS::CGI qw(header popurl); use FS::Record qw(qsearch fields); use FS::cust_credit; use FS::cust_bill; $cgi = new CGI; cgisuidsetup($cgi); if ( $cgi->param('error') ) { #$cust_credit_bill = new FS::cust_credit_bill ( { # map { $_, scalar($cgi->param($_)) } fields('cust_credit_bill') #} ); $crednum = $cgi->param('crednum'); $amount = $cgi->param('amount'); #$refund = $cgi->param('refund'); $invnum = $cgi->param('invnum'); } else { ($query) = $cgi->keywords; $query =~ /^(\d+)$/; $crednum = $1; $amount = ''; #$refund = 'yes'; $invnum = ''; } $_date = time; $otaker = getotaker; $p1 = popurl(1); print $cgi->header( '-expires' => 'now' ), header("Apply Credit", ''); print qq!Error: !, $cgi->param('error'), "" if $cgi->param('error'); print <

END

die unless $cust_credit = qsearchs('cust_credit', { 'crednum' => $crednum } );

print qq!Credit #!, $crednum, qq!!;

print qq!\nInvoice # ";

print qq!\nDate: !, time2str("%D",$_date), qq!!;

print qq!\nAmount \$!;

#print qq! Also post refund!;

print <



END

print <
  

END

%>