3 # cust_pay.cgi: Add a payment (output form)
5 # Usage: cust_pay.cgi invnum
6 # http://server.name/path/cust_pay.cgi?invnum
8 # Note: Should be run setuid as user nobody.
10 # some hooks for modifications as well as additions, but needs work.
12 # ivan@voicenet.com 96-dec-11
14 # rewrite ivan@sisd.com 98-mar-16
18 use CGI::Base qw(:DEFAULT :CGI);
19 use FS::UID qw(cgisuidsetup);
21 my($cgi) = new CGI::Base;
26 $QUERY_STRING =~ /^(\d+)$/;
29 SendHeaders(); # one guess.
33 <TITLE>Enter payment</TITLE>
37 <H1>Enter payment</H1>
39 <FORM ACTION="process/cust_pay.cgi" METHOD=POST>
44 print qq!Invoice #<B>$invnum</B><INPUT TYPE="hidden" NAME="invnum" VALUE="$invnum">!;
48 print qq!<BR>Date: <B>!, time2str("%D",$date), qq!</B><INPUT TYPE="hidden" NAME="_date" VALUE="$date">!;
51 print qq!<BR>Amount \$<INPUT TYPE="text" NAME="paid" VALUE="" SIZE=8 MAXLENGTH=8>!;
55 print qq!<BR>Payby: <B>$payby</B><INPUT TYPE="hidden" NAME="payby" VALUE="$payby">!;
57 #payinfo (check # now as payby="BILL" hardcoded.. what to do later?)
59 print qq!<BR>Check #<INPUT TYPE="text" NAME="payinfo" VALUE="$payinfo">!;
62 print qq!<INPUT TYPE="hidden" NAME="paybatch" VALUE="">!;
67 <CENTER><INPUT TYPE="submit" VALUE="Post"></CENTER>