httemplate/misc/bill.cgi

   1 <%
   2 #<!-- $Id: bill.cgi,v 1.4 2001-10-15 12:16:42 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::CGI qw(popurl idiot);
  11 use FS::Record qw(qsearchs);
  12 use FS::cust_main;
  13
  14 $cgi = new CGI;
  15 &cgisuidsetup($cgi);
  16
  17 #untaint custnum
  18 ($query) = $cgi->keywords;
  19 $query =~ /^(\d*)$/;
  20 $custnum = $1;
  21 $cust_main = qsearchs('cust_main',{'custnum'=>$custnum});
  22 die "Can't find customer!\n" unless $cust_main;
  23
  24 $error = $cust_main->bill(
  25 #                          'time'=>$time
  26                          );
  27 #&eidiot($error) if $error;
  28
  29 unless ( $error ) {
  30   $cust_main->apply_payments;
  31   $cust_main->apply_credits;
  32
  33   $error = $cust_main->collect(
  34   #                             'invoice-time'=>$time,
  35   #                             'batch_card'=> 'yes',
  36                                'batch_card'=> 'no',
  37                                'report_badcard'=> 'yes',
  38                               );
  39 }
  40 #&eidiot($error) if $error;
  41
  42 if ( $error ) {
  43   &idiot($error);
  44 } else {
  45   print $cgi->redirect(popurl(2). "view/cust_main.cgi?$custnum");
  46 }
  47 %>