httemplate/misc/bill.cgi

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