From: ivan <ivan>
Date: Mon, 14 Mar 2011 21:41:05 +0000 (+0000)
Subject: additional debugging, RT#11993
X-Git-Tag: freeside_2_3_0~504
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=b08fdcdd5b0c7e32e0a666fd9a044651dd575589

additional debugging, RT#11993
---

diff --git a/FS/FS/cust_main/Billing.pm b/FS/FS/cust_main/Billing.pm
index 5efeb8268..cbe8b6466 100644
--- a/FS/FS/cust_main/Billing.pm
+++ b/FS/FS/cust_main/Billing.pm
@@ -916,6 +916,10 @@ sub _make_lines {
     # 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 ( $@ );