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