%
%
%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') %>
% }