httemplate/misc/bill.cgi

   1 <!-- $Id: bill.cgi,v 1.5 2002-01-30 14:18:09 ivan Exp $ -->
   2 <%
   3
   4 #untaint custnum
   5 my($query) = $cgi->keywords;
   6 $query =~ /^(\d*)$/;
   7 my $custnum = $1;
   8 my $cust_main = qsearchs('cust_main',{'custnum'=>$custnum});
   9 die "Can't find customer!\n" unless $cust_main;
  10
  11 my $error = $cust_main->bill(
  12 #                          'time'=>$time
  13                          );
  14 #&eidiot($error) if $error;
  15
  16 unless ( $error ) {
  17   $cust_main->apply_payments;
  18   $cust_main->apply_credits;
  19
  20   $error = $cust_main->collect(
  21   #                             'invoice-time'=>$time,
  22   #                             'batch_card'=> 'yes',
  23                                'batch_card'=> 'no',
  24                                'report_badcard'=> 'yes',
  25                               );
  26 }
  27 #&eidiot($error) if $error;
  28
  29 if ( $error ) {
  30   &idiot($error);
  31 } else {
  32   print $cgi->redirect(popurl(2). "view/cust_main.cgi?$custnum");
  33 }
  34 %>