httemplate/misc/bill.cgi

   1 <%
   2 #<!-- $Id: bill.cgi,v 1.2 2001-08-21 02:31:56 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 $error = $cust_main->collect(
  29 #                             'invoice-time'=>$time,
  30 #                             'batch_card'=> 'yes',
  31                              'batch_card'=> 'no',
  32                              'report_badcard'=> 'yes',
  33                             );
  34 &eidiot($error) if $error;
  35
  36 print $cgi->redirect(popurl(2). "view/cust_main.cgi?$custnum");
  37
  38 %>