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

[Ivan,,,]

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

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.26
retrieving revision 1.27
diff -u -w -d -r1.26 -r1.27
--- Billing.pm	10 Mar 2011 02:26:48 -0000	1.26
+++ Billing.pm	14 Mar 2011 21:41:05 -0000	1.27
@@ -916,6 +916,10 @@
     # 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"
+      if $DEBUG > 2;
+           
     $recur = eval { $cust_pkg->$method( \$sdate, \@details, \%param ) };
     return "$@ running $method for $cust_pkg\n"
       if ( $@ );