<% my $conf = new FS::Conf; my($custnum, $amount, $reason); if ( $cgi->param('error') ) { #$cust_credit = new FS::cust_credit ( { # map { $_, scalar($cgi->param($_)) } fields('cust_credit') #} ); $custnum = $cgi->param('custnum'); $amount = $cgi->param('amount'); #$refund = $cgi->param('refund'); $reason = $cgi->param('reason'); } else { my($query) = $cgi->keywords; $query =~ /^(\d+)$/; $custnum = $1; $amount = ''; #$refund = 'yes'; $reason = ''; } my $_date = time; my $otaker = getotaker; my $p1 = popurl(1); print header("Post Credit", ''); print qq!Error: !, $cgi->param('error'), "" if $cgi->param('error'); print <config('countrydefault'));
END print '

Credit'. ntable("#cccccc", 2). 'Date'. time2str("%D",$_date). ''; print qq!Amount\$!; #print qq! Also post refund!; print qq!Reason!; print qq!Auto-apply
to invoices!; print <
END %>