httemplate/misc/bill.cgi

   1 <%
   2 #<!-- $Id: bill.cgi,v 1.3 2001-09-03 22:07:39 ivan Exp $ -->
   3
   4 use strict;
   5 use vars qw( $cgi $query $custnum $cust_main $error );
   6 use CGI;
   7 use CGI::Carp qw(fatalsToBrowser);
   8 use FS::UID qw(cgisuidsetup);
   9 use FS::CGI qw(popurl eidiot);
  10 use FS::Record qw(qsearchs);
  11 use FS::cust_main;
  12
  13 $cgi = new CGI;
  14 &cgisuidsetup($cgi);
  15
  16 #untaint custnum
  17 ($query) = $cgi->keywords;
  18 $query =~ /^(\d*)$/;
  19 $custnum = $1;
  20 $cust_main = qsearchs('cust_main',{'custnum'=>$custnum});
  21 die "Can't find customer!\n" unless $cust_main;
  22
  23 $error = $cust_main->bill(
  24 #                          'time'=>$time
  25                          );
  26 &eidiot($error) if $error;
  27
  28 $cust_main->apply_payments;
  29 $cust_main->apply_credits;
  30
  31 $error = $cust_main->collect(
  32 #                             'invoice-time'=>$time,
  33 #                             'batch_card'=> 'yes',
  34                              'batch_card'=> 'no',
  35                              'report_badcard'=> 'yes',
  36                             );
  37 &eidiot($error) if $error;
  38
  39 print $cgi->redirect(popurl(2). "view/cust_main.cgi?$custnum");
  40
  41 %>