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                                #'retry_card' => 'yes',
  25                                'retry' => 'yes',
  26                               );
  27 }
  28 #&eidiot($error) if $error;
  29
  30 if ( $error ) {
  31 %>
  32 <!-- mason kludge -->
  33 <%
  34   &idiot($error);
  35 } else {
  36   print $cgi->redirect(popurl(2). "view/cust_main.cgi?$custnum");
  37 }
  38 %>