<% # use strict; use vars qw( $cgi $invnum $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') ) { $invnum = $cgi->param('invnum'); $paid = $cgi->param('paid'); $payby = $cgi->param('payby'); $payinfo = $cgi->param('payinfo'); } else { my ($query) = $cgi->keywords; $query =~ /^(\d+)$/; $invnum = $1; $paid = ''; $payby = "BILL"; $payinfo = ""; } $_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

print qq!Invoice #$invnum!;

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 <
  

END

%>