diff options
| author | ivan <ivan> | 2011-02-05 06:03:46 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2011-02-05 06:03:46 +0000 |
| commit | 3909d4fc28898052ccbb5460704eae50b40984a7 (patch) | |
| tree | 9d2fe6c6126005018a109bd090fd4fd719d2d584 | |
| parent | 7a3687aa6b9be5c1cbbcddb3b4396da5280baf33 (diff) | |
add more debug tracing to invoice generation, RT#11452
| -rw-r--r-- | FS/FS/cust_bill.pm | 3 | ||||
| -rw-r--r-- | FS/FS/cust_pkg.pm | 2 |
2 files changed, 5 insertions, 0 deletions
diff --git a/FS/FS/cust_bill.pm b/FS/FS/cust_bill.pm index 59e2bf1f3..a3f81292c 100644 --- a/FS/FS/cust_bill.pm +++ b/FS/FS/cust_bill.pm @@ -4334,6 +4334,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 7b0363e5d..bf4136241 100644 --- a/FS/FS/cust_pkg.pm +++ b/FS/FS/cust_pkg.pm @@ -2196,6 +2196,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; |