<% header("Apply Credit", '') %> % if ( $cgi->param('error') ) { Error: <% $cgi->param('error') %>

% }

Credit #<% $crednum %>
Date: <% time2str("%D", $cust_credit->_date) %>
Amount: $<% $cust_credit->amount %>
Unapplied amount: $<% $credited %>
Reason: <% $cust_credit->reason %>
Invoice # % foreach my $cust_bill ( @cust_bill ) { invnum eq $invnum ? ' SELECTED' : '' %> VALUE="<% $cust_bill->invnum %>"><% $cust_bill->invnum %> - <% time2str("%D",$cust_bill->_date) %> - $<% $cust_bill->owed %> % } Refund
Amount $

<%init> my($crednum, $amount, $invnum); 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 { my($query) = $cgi->keywords; $query =~ /^(\d+)$/; $crednum = $1; $amount = ''; #$refund = 'yes'; $invnum = ''; } my $otaker = getotaker; my $p1 = popurl(1); my $cust_credit = qsearchs('cust_credit', { 'crednum' => $crednum } ); die "credit $crednum not found!" unless $cust_credit; my $credited = $cust_credit->credited; my @cust_bill = sort { $a->_date <=> $b->_date or $a->invnum <=> $b->invnum } grep { $_->owed != 0 } qsearch('cust_bill', { 'custnum' => $cust_credit->custnum } );