<% include('/elements/header-popup.html', 'Enter Credit') %> <% include('/elements/error.html') %>

Credit <% ntable("#cccccc", 2) %> Date <% time2str("%D",$_date) %> Amount $ % %#print qq! Also post refund!; % <% include('/elements/tr-select-reason.html', 'field' => 'reasonnum', 'reason_class' => 'R', 'control_button' => 'document.credit_popup.submit', ) %> Auto-apply
to invoices yesno

<%once> my $conf = new FS::Conf; <%init> die "access denied" unless $FS::CurrentUser::CurrentUser->access_right('Post credit'); 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);