<% my($paynum, $amount, $invnum); if ( $cgi->param('error') ) { $paynum = $cgi->param('paynum'); $amount = $cgi->param('amount'); $invnum = $cgi->param('invnum'); } else { my($query) = $cgi->keywords; $query =~ /^(\d+)$/; $paynum = $1; $amount = ''; $invnum = ''; } my $otaker = getotaker; my $p1 = popurl(1); print header("Apply Payment", ''); print qq!Error: !, $cgi->param('error'), "

" if $cgi->param('error'); print < END my $cust_pay = qsearchs('cust_pay', { 'paynum' => $paynum } ); die "payment $paynum not found!" unless $cust_pay; my $unapplied = $cust_pay->unapplied; print "Payment # $paynum". qq!!. '
Date: '. time2str("%D", $cust_pay->_date). ''. '
Amount: $'. $cust_pay->paid. ''. "
Unapplied amount: \$$unapplied" ; my @cust_bill = grep $_->owed != 0, qsearch('cust_bill', { 'custnum' => $cust_pay->custnum } ); print < function changed(what) { cust_bill = what.options[what.selectedIndex].value; END foreach my $cust_bill ( @cust_bill ) { my $invnum = $cust_bill->invnum; my $changeto = $cust_bill->owed < $unapplied ? $cust_bill->owed : $unapplied; print < END print qq!
Invoice #"; print qq!
Amount \$!; print < END print < END %>