<% 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); %> <%= header("Post Credit", '') %> <% if ( $cgi->param('error') ) { %> Error: <%= $cgi->param('error') %>

<% } %>

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