[freeside-commits] freeside/FS/FS/cust_main Billing.pm,1.27,1.28

[Ivan,,,]

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

Modified Files:
	Billing.pm 
Log Message:
additional debugging, RT#11993

Index: Billing.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cust_main/Billing.pm,v
retrieving revision 1.27
retrieving revision 1.28
diff -u -w -d -r1.27 -r1.28
--- Billing.pm	14 Mar 2011 21:41:05 -0000	1.27
+++ Billing.pm	14 Mar 2011 21:58:41 -0000	1.28
@@ -897,6 +897,13 @@
              || $cust_pkg->setup
              || $time;
 
+    if ( $DEBUG > 2 ) {
+      warn 'part_pkg.freq: '. $part_pkg->freq. "\n";
+      warn 'cust_pkg.bill: '. $cust_pkg->getfield('bill'). "\n";
+      warn "time: $time\n";
+      warn "options{cancel}: $options{cancel}\n";
+    }
+
     #over two params!  lets at least switch to a hashref for the rest...
     my $increment_next_bill = ( $part_pkg->freq ne '0'
                                 && ( $cust_pkg->getfield('bill') || 0 ) <= $time
@@ -916,8 +923,9 @@
     # which can_discount are supported.
     # (the UI should prevent adding discounts to these at the moment)
 
-    warn "calling $method on cust_pkg ". $cust_pkg->pkgnum. " with params ".
-         join(' / ', map "$_=>$params{$_}", keys %param). "\n"
+    warn "calling $method on cust_pkg ". $cust_pkg->pkgnum.
+         " for pkgpart ". $cust_pkg->pkgpart.
+         " with params ". join(' / ', map "$_=>$params{$_}", keys %param). "\n"
       if $DEBUG > 2;
            
     $recur = eval { $cust_pkg->$method( \$sdate, \@details, \%param ) };