%
#
use strict;
use vars qw( $cgi $link $linknum $p1 $_date $payby $payinfo $paid );
use Date::Format;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use FS::UID qw(cgisuidsetup);
use FS::CGI qw(header popurl);
$cgi = new CGI;
cgisuidsetup($cgi);
if ( $cgi->param('error') ) {
$link = $cgi->param('link');
$linknum = $cgi->param('linknum');
$paid = $cgi->param('paid');
$payby = $cgi->param('payby');
$payinfo = $cgi->param('payinfo');
} elsif ($cgi->keywords) {
my($query) = $cgi->keywords;
$query =~ /^(\d+)$/;
$link = 'invnum';
$linknum = $1;
$paid = '';
$payby = 'BILL';
$payinfo = "";
} elsif ( $cgi->param('custnum') =~ /^(\d+)$/ ) {
$link = 'custnum';
$linknum = $1;
$paid = '';
$payby = 'BILL';
$payinfo = '';
} else {
die "illegal query ". $cgi->keywords;
}
$_date = time;
$p1 = popurl(1);
print $cgi->header( '-expires' => 'now' ), header("Enter payment", '');
print qq!Error: !, $cgi->param('error'),
""
if $cgi->param('error');
print <
END
if ( $link eq 'invnum' ) {
print "Invoice #$linknum";
} elsif ( $link eq 'custnum' ) {
print "Customer #$linknum";
}
print qq!
Date: !, time2str("%D",$_date), qq!!;
print qq!
Amount \$!;
print qq!
Payby: $payby!;
#payinfo (check # now as payby="BILL" hardcoded.. what to do later?)
print qq!
Check #!;
#paybatch
print qq!!;
print <
END
print <