From 3d01805cd88f7c4a37d7060117a9a42631c4bb5e Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Sat, 5 Feb 2011 06:03:50 +0000
Subject: [PATCH] add more debug tracing to invoice generation, RT#11452

---
 FS/FS/cust_bill.pm | 3 +++
 FS/FS/cust_pkg.pm  | 2 ++
 2 files changed, 5 insertions(+)

diff --git a/FS/FS/cust_bill.pm b/FS/FS/cust_bill.pm
index 24b0117ef..6e86bd645 100644
--- a/FS/FS/cust_bill.pm
+++ b/FS/FS/cust_bill.pm
@@ -4365,6 +4365,9 @@ sub _items_cust_bill_pkg {
                                                    #$cust_bill_pkg->sdate)
               unless $cust_bill_pkg->pkgpart_override; #don't redisplay services
 
+            warn "$me _items_cust_bill_pkg done adding service details\n"
+              if $DEBUG > 1;
+
             if ( $multilocation ) {
               my $loc = $cust_pkg->location_label;
               $loc = substr($loc, 0, 50). '...'
diff --git a/FS/FS/cust_pkg.pm b/FS/FS/cust_pkg.pm
index 9d3083067..c183a4938 100644
--- a/FS/FS/cust_pkg.pm
+++ b/FS/FS/cust_pkg.pm
@@ -2199,6 +2199,8 @@ sub _labels_short {
           $detail =~ s/, $//;
           push @labels, $detail;
         }
+        warn "$me _labels_short   done consolidating services\n"
+          if $DEBUG;
       } else {
         warn "$me _labels_short   adding service data\n"
           if $DEBUG;
-- 
2.11.0