httemplate/edit/cust_pay.cgi

   1 <%
   2 #<!-- $Id: cust_pay.cgi,v 1.2 2001-08-21 02:31:56 ivan Exp $ -->
   3
   4 use strict;
   5 use vars qw( $cgi $invnum $p1 $_date $payby $payinfo $paid );
   6 use Date::Format;
   7 use CGI;
   8 use CGI::Carp qw(fatalsToBrowser);
   9 use FS::UID qw(cgisuidsetup);
  10 use FS::CGI qw(header popurl);
  11
  12 $cgi = new CGI;
  13 cgisuidsetup($cgi);
  14
  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');
  20 } else {
  21   my ($query) = $cgi->keywords;
  22   $query =~ /^(\d+)$/;
  23   $invnum = $1;
  24   $paid = '';
  25   $payby = "BILL";
  26   $payinfo = "";
  27 }
  28 $_date = time;
  29
  30 $p1 = popurl(1);
  31 print $cgi->header( '-expires' => 'now' ), header("Enter payment", '');
  32
  33 print qq!<FONT SIZE="+1" COLOR="#ff0000">Error: !, $cgi->param('error'),
  34       "</FONT>"
  35   if $cgi->param('error');
  36
  37 print <<END;
  38     <FORM ACTION="${p1}process/cust_pay.cgi" METHOD=POST>
  39     <HR><PRE>
  40 END
  41
  42 print qq!Invoice #<B>$invnum</B><INPUT TYPE="hidden" NAME="invnum" VALUE="$invnum">!;
  43
  44 print qq!<BR>Date: <B>!, time2str("%D",$_date), qq!</B><INPUT TYPE="hidden" NAME="_date" VALUE="$_date">!;
  45
  46 print qq!<BR>Amount \$<INPUT TYPE="text" NAME="paid" VALUE="$paid" SIZE=8 MAXLENGTH=8>!;
  47
  48 print qq!<BR>Payby: <B>$payby</B><INPUT TYPE="hidden" NAME="payby" VALUE="$payby">!;
  49
  50 #payinfo (check # now as payby="BILL" hardcoded.. what to do later?)
  51 print qq!<BR>Check #<INPUT TYPE="text" NAME="payinfo" VALUE="$payinfo">!;
  52
  53 #paybatch
  54 print qq!<INPUT TYPE="hidden" NAME="paybatch" VALUE="">!;
  55
  56 print <<END;
  57 </PRE>
  58 <BR>
  59 <INPUT TYPE="submit" VALUE="Post payment">
  60 END
  61
  62 print <<END;
  63
  64     </FORM>
  65   </BODY>
  66 </HTML>
  67 END
  68
  69 %>