httemplate/edit/process/cust_bill_pay.cgi

   1 <%
   2 #<!-- $Id: cust_bill_pay.cgi,v 1.1 2001-12-18 19:30:31 ivan Exp $ -->
   3
   4 use strict;
   5 use vars qw( $cgi $custnum $paynum $new $error );
   6 use CGI;
   7 use CGI::Carp qw(fatalsToBrowser);
   8 use FS::UID qw(cgisuidsetup getotaker);
   9 use FS::CGI qw(popurl);
  10 use FS::Record qw(qsearchs fields);
  11 use FS::cust_pay;
  12 use FS::cust_bill_pay;
  13 use FS::cust_main;
  14
  15 $cgi = new CGI;
  16 cgisuidsetup($cgi);
  17
  18 $cgi->param('paynum') =~ /^(\d*)$/ or die "Illegal paynum!";
  19 $paynum = $1;
  20
  21 my $cust_pay = qsearchs('cust_pay', { 'paynum' => $paynum } )
  22   or die "No such paynum";
  23
  24 my $cust_main = qsearchs('cust_main', { 'custnum' => $cust_pay->custnum } )
  25   or die "Bogus credit:  not attached to customer";
  26
  27 my $custnum = $cust_main->custnum;
  28
  29 $new = new FS::cust_bill_pay ( {
  30   map {
  31     $_, scalar($cgi->param($_));
  32   #} qw(custnum _date amount invnum)
  33   } fields('cust_bill_pay')
  34 } );
  35
  36 $error=$new->insert;
  37
  38 if ( $error ) {
  39   $cgi->param('error', $error);
  40   print $cgi->redirect(popurl(2). "cust_bill_pay.cgi?". $cgi->query_string );
  41 } else {
  42   print $cgi->redirect(popurl(3). "view/cust_main.cgi?$custnum");
  43 }
  44
  45
  46 %>