2 #<!-- $Id: cust_pay.cgi,v 1.3 2001-09-03 22:07:39 ivan Exp $ -->
5 use vars qw( $cgi $link $linknum $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 $link = $cgi->param('link');
17 $linknum = $cgi->param('linknum');
18 $paid = $cgi->param('paid');
19 $payby = $cgi->param('payby');
20 $payinfo = $cgi->param('payinfo');
21 } elsif ($cgi->keywords) {
22 my($query) = $cgi->keywords;
29 } elsif ( $cgi->param('custnum') =~ /^(\d+)$/ ) {
36 die "illegal query ". $cgi->keywords;
41 print $cgi->header( '-expires' => 'now' ), header("Enter payment", '');
43 print qq!<FONT SIZE="+1" COLOR="#ff0000">Error: !, $cgi->param('error'),
45 if $cgi->param('error');
48 <FORM ACTION="${p1}process/cust_pay.cgi" METHOD=POST>
49 <INPUT TYPE="hidden" NAME="link" VALUE="$link">
50 <INPUT TYPE="hidden" NAME="linknum" VALUE="$linknum">
53 if ( $link eq 'invnum' ) {
54 print "Invoice #<B>$linknum</B>";
55 } elsif ( $link eq 'custnum' ) {
56 print "Customer #<B>$linknum</B>";
59 print qq!<BR>Date: <B>!, time2str("%D",$_date), qq!</B><INPUT TYPE="hidden" NAME="_date" VALUE="$_date">!;
61 print qq!<BR>Amount \$<INPUT TYPE="text" NAME="paid" VALUE="$paid" SIZE=8 MAXLENGTH=8>!;
63 print qq!<BR>Payby: <B>$payby</B><INPUT TYPE="hidden" NAME="payby" VALUE="$payby">!;
65 #payinfo (check # now as payby="BILL" hardcoded.. what to do later?)
66 print qq!<BR>Check #<INPUT TYPE="text" NAME="payinfo" VALUE="$payinfo">!;
69 print qq!<INPUT TYPE="hidden" NAME="paybatch" VALUE="">!;
74 <INPUT TYPE="submit" VALUE="Post payment">