2 #<!-- $Id: cust_pay.cgi,v 1.2 2001-08-21 02:31:56 ivan Exp $ -->
5 use vars qw( $cgi $invnum $p1 $_date $payby $payinfo $paid );
8 use CGI::Carp qw(fatalsToBrowser);
9 use FS::UID qw(cgisuidsetup);
10 use FS::CGI qw(header popurl);
15 if ( $cgi->param('error') ) {
16 $invnum = $cgi->param('invnum');
17 $paid = $cgi->param('paid');
18 $payby = $cgi->param('payby');
19 $payinfo = $cgi->param('payinfo');
21 my ($query) = $cgi->keywords;
31 print $cgi->header( '-expires' => 'now' ), header("Enter payment", '');
33 print qq!<FONT SIZE="+1" COLOR="#ff0000">Error: !, $cgi->param('error'),
35 if $cgi->param('error');
38 <FORM ACTION="${p1}process/cust_pay.cgi" METHOD=POST>
42 print qq!Invoice #<B>$invnum</B><INPUT TYPE="hidden" NAME="invnum" VALUE="$invnum">!;
44 print qq!<BR>Date: <B>!, time2str("%D",$_date), qq!</B><INPUT TYPE="hidden" NAME="_date" VALUE="$_date">!;
46 print qq!<BR>Amount \$<INPUT TYPE="text" NAME="paid" VALUE="$paid" SIZE=8 MAXLENGTH=8>!;
48 print qq!<BR>Payby: <B>$payby</B><INPUT TYPE="hidden" NAME="payby" VALUE="$payby">!;
50 #payinfo (check # now as payby="BILL" hardcoded.. what to do later?)
51 print qq!<BR>Check #<INPUT TYPE="text" NAME="payinfo" VALUE="$payinfo">!;
54 print qq!<INPUT TYPE="hidden" NAME="paybatch" VALUE="">!;
59 <INPUT TYPE="submit" VALUE="Post payment">