[freeside-commits] freeside/FS/FS cust_main.pm,1.519,1.520

[Ivan,,,]

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

Modified Files:
	cust_main.pm 
Log Message:
more debugging for weird bill lockup, RT#8993

Index: cust_main.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cust_main.pm,v
retrieving revision 1.519
retrieving revision 1.520
diff -u -w -d -r1.519 -r1.520
--- cust_main.pm	2 Jul 2010 00:25:45 -0000	1.519
+++ cust_main.pm	2 Jul 2010 18:56:28 -0000	1.520
@@ -2758,8 +2758,14 @@
   local $FS::UID::AutoCommit = 0;
   my $dbh = dbh;
 
+  warn "$me acquiring lock on customer ". $self->custnum. "\n"
+    if $DEBUG;
+
   $self->select_for_update; #mutex
 
+  warn "$me running pre-bill events for customer ". $self->custnum. "\n"
+    if $DEBUG;
+
   my $error = $self->do_cust_event(
     'debug'      => ( $options{'debug'} || 0 ),
     'time'       => $invoice_time,
@@ -2771,6 +2777,9 @@
     return $error;
   }
 
+  warn "$me done running pre-bill events for customer ". $self->custnum. "\n"
+    if $DEBUG;
+
   #keep auto-charge and non-auto-charge line items separate
   my @passes = ( '', 'no_auto' );