From b08fdcdd5b0c7e32e0a666fd9a044651dd575589 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Mon, 14 Mar 2011 21:41:05 +0000
Subject: [PATCH] additional debugging, RT#11993

---
 FS/FS/cust_main/Billing.pm | 4 ++++
 1 file changed, 4 insertions(+)

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 ( $@ );
-- 
2.11.0