httemplate/edit/cust_pay.cgi

   1 <%
   2 #<!-- $Id: cust_pay.cgi,v 1.3 2001-09-03 22:07:39 ivan Exp $ -->
   3
   4 use strict;
   5 use vars qw( $cgi $link $linknum $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   $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;
  23   $query =~ /^(\d+)$/;
  24   $link = 'invnum';
  25   $linknum = $1;
  26   $paid = '';
  27   $payby = 'BILL';
  28   $payinfo = "";
  29 } elsif ( $cgi->param('custnum')  =~ /^(\d+)$/ ) {
  30   $link = 'custnum';
  31   $linknum = $1;
  32   $paid = '';
  33   $payby = 'BILL';
  34   $payinfo = '';
  35 } else {
  36   die "illegal query ". $cgi->keywords;
  37 }
  38 $_date = time;
  39
  40 $p1 = popurl(1);
  41 print $cgi->header( '-expires' => 'now' ), header("Enter payment", '');
  42
  43 print qq!<FONT SIZE="+1" COLOR="#ff0000">Error: !, $cgi->param('error'),
  44       "</FONT>"
  45   if $cgi->param('error');
  46
  47 print <<END;
  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">
  51 END
  52
  53 if ( $link eq 'invnum' ) {
  54   print "Invoice #<B>$linknum</B>";
  55 } elsif ( $link eq 'custnum' ) {
  56   print "Customer #<B>$linknum</B>";
  57 }
  58
  59 print qq!<BR>Date: <B>!, time2str("%D",$_date), qq!</B><INPUT TYPE="hidden" NAME="_date" VALUE="$_date">!;
  60
  61 print qq!<BR>Amount \$<INPUT TYPE="text" NAME="paid" VALUE="$paid" SIZE=8 MAXLENGTH=8>!;
  62
  63 print qq!<BR>Payby: <B>$payby</B><INPUT TYPE="hidden" NAME="payby" VALUE="$payby">!;
  64
  65 #payinfo (check # now as payby="BILL" hardcoded.. what to do later?)
  66 print qq!<BR>Check #<INPUT TYPE="text" NAME="payinfo" VALUE="$payinfo">!;
  67
  68 #paybatch
  69 print qq!<INPUT TYPE="hidden" NAME="paybatch" VALUE="">!;
  70
  71 print <<END;
  72 </PRE>
  73 <BR>
  74 <INPUT TYPE="submit" VALUE="Post payment">
  75 END
  76
  77 print <<END;
  78
  79     </FORM>
  80   </BODY>
  81 </HTML>
  82 END
  83
  84 %>