<% include('/elements/header-popup.html', 'Enter 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

<%once> my $conf = new FS::Conf; <%init> 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);