[freeside-commits] freeside/FS/FS cust_main.pm,1.508,1.509

Ivan,,, ivan at wavetail.420.am
Sat Jun 5 19:27:43 PDT 2010


Update of /home/cvs/cvsroot/freeside/FS/FS
In directory wavetail.420.am:/tmp/cvs-serv19491

Modified Files:
	cust_main.pm 
Log Message:
log customer with queued billing jobs, RT#8282

Index: cust_main.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cust_main.pm,v
retrieving revision 1.508
retrieving revision 1.509
diff -u -w -d -r1.508 -r1.509
--- cust_main.pm	6 Jun 2010 02:24:06 -0000	1.508
+++ cust_main.pm	6 Jun 2010 02:27:40 -0000	1.509
@@ -8841,14 +8841,23 @@
 
 }
 
+=item queued_bill 'custnum' => CUSTNUM [ , OPTION => VALUE ... ]
+
+Subroutine (not a method), designed to be called from the queue.
+
+Takes a list of options and values.
+
+Pulls up the customer record via the custnum option and calls bill_and_collect.
+
+=cut
+
 sub queued_bill {
-  ## actual sub, not a method, designed to be called from the queue.
-  ## sets up the customer, and calls the bill_and_collect
   my (%args) = @_; #, ($time, $invoice_time, $check_freq, $resetup) = @_;
+
   my $cust_main = qsearchs( 'cust_main', { custnum => $args{'custnum'} } );
-      $cust_main->bill_and_collect(
-        %args,
-      );
+  warn 'bill_and_collect custnum#'. $cust_main->custnum. "\n";#log custnum w/pid
+
+  $cust_main->bill_and_collect( %args );
 }
 
 sub _upgrade_data { #class method



More information about the freeside-commits mailing list