From: ivan <ivan>
Date: Mon, 5 Feb 2007 22:12:45 +0000 (+0000)
Subject: turn debugging on until we catch the Cant call method "part_pkg" on an undefined... 
X-Git-Tag: freeside_1_7_2~1^2~34
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=553bae9c8217daa25c83681ba633e9c112e3d9b1;p=freeside.git

turn debugging on until we catch the Cant call method "part_pkg" on an undefined value at /usr/local/share/perl/5.8.4/FS/cust_bill_ApplicationCommon.pm line 181" bug
---

diff --git a/FS/FS/cust_bill_ApplicationCommon.pm b/FS/FS/cust_bill_ApplicationCommon.pm
index 195fa8d0f..467b581ab 100644
--- a/FS/FS/cust_bill_ApplicationCommon.pm
+++ b/FS/FS/cust_bill_ApplicationCommon.pm
@@ -8,7 +8,7 @@ use FS::Record qw( qsearch qsearchs dbh );
 
 @ISA = qw( FS::Record );
 
-$DEBUG = 0;
+$DEBUG = 1;
 $me = '[FS::cust_bill_ApplicationCommon]';
 
 =head1 NAME
@@ -126,7 +126,7 @@ sub apply_to_lineitems {
 
   my @open = $self->cust_bill->open_cust_bill_pkg; #FOR UPDATE...?
   warn "$me ". scalar(@open). " open line items for invoice ".
-       $self->cust_bill->invnum. "\n"
+       $self->cust_bill->invnum. ": ". join(', ', @open). "\n"
     if $DEBUG;
   my $total = 0;
   $total += $_->setup + $_->recur foreach @open;