diff options
Diffstat (limited to 'htdocs/edit/cust_pay.cgi')
| -rwxr-xr-x | htdocs/edit/cust_pay.cgi | 23 |
1 files changed, 14 insertions, 9 deletions
diff --git a/htdocs/edit/cust_pay.cgi b/htdocs/edit/cust_pay.cgi index 929c9e7e4..4cd95de55 100755 --- a/htdocs/edit/cust_pay.cgi +++ b/htdocs/edit/cust_pay.cgi @@ -1,6 +1,6 @@ #!/usr/bin/perl -Tw # -# $Id: cust_pay.cgi,v 1.3 1999-01-18 09:41:27 ivan Exp $ +# $Id: cust_pay.cgi,v 1.4 1999-01-19 05:13:37 ivan Exp $ # # Usage: cust_pay.cgi invnum # http://server.name/path/cust_pay.cgi?invnum @@ -14,7 +14,11 @@ # rewrite ivan@sisd.com 98-mar-16 # # $Log: cust_pay.cgi,v $ -# Revision 1.3 1999-01-18 09:41:27 ivan +# Revision 1.4 1999-01-19 05:13:37 ivan +# for mod_perl: no more top-level my() variables; use vars instead +# also the last s/create/new/; +# +# Revision 1.3 1999/01/18 09:41:27 ivan # all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl # (good idea anyway) # @@ -23,20 +27,21 @@ # use strict; +use vars qw( $cgi $query $invnum $p1 $date $payby $payinfo ); use Date::Format; use CGI; use CGI::Carp qw(fatalsToBrowser); use FS::UID qw(cgisuidsetup); use FS::CGI qw(header popurl); -my($cgi) = new CGI; +$cgi = new CGI; cgisuidsetup($cgi); -my($query) = $cgi->keywords; +($query) = $cgi->keywords; $query =~ /^(\d+)$/; -my($invnum)=$1; +$invnum = $1; -my $p1 = popurl(1); +$p1 = popurl(1); print $cgi->header( '-expires' => 'now' ), header("Enter payment", ''), <<END; <FORM ACTION="${p1}process/cust_pay.cgi" METHOD=POST> <HR><PRE> @@ -46,18 +51,18 @@ END print qq!Invoice #<B>$invnum</B><INPUT TYPE="hidden" NAME="invnum" VALUE="$invnum">!; #date -my($date)=time; +$date = time; print qq!<BR>Date: <B>!, time2str("%D",$date), qq!</B><INPUT TYPE="hidden" NAME="_date" VALUE="$date">!; #paid print qq!<BR>Amount \$<INPUT TYPE="text" NAME="paid" VALUE="" SIZE=8 MAXLENGTH=8>!; #payby -my($payby)="BILL"; +$payby = "BILL"; print qq!<BR>Payby: <B>$payby</B><INPUT TYPE="hidden" NAME="payby" VALUE="$payby">!; #payinfo (check # now as payby="BILL" hardcoded.. what to do later?) -my($payinfo)=""; +$payinfo = ""; print qq!<BR>Check #<INPUT TYPE="text" NAME="payinfo" VALUE="$payinfo">!; #paybatch |