[freeside-commits] freeside/FS/FS cust_bill_ApplicationCommon.pm, 1.5, 1.6

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory wavetail:/tmp/cvs-serv22356

Modified Files:
	cust_bill_ApplicationCommon.pm 
Log Message:
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

Index: cust_bill_ApplicationCommon.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cust_bill_ApplicationCommon.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- cust_bill_ApplicationCommon.pm	21 Jan 2007 21:45:28 -0000	1.5
+++ cust_bill_ApplicationCommon.pm	5 Feb 2007 22:12:45 -0000	1.6
@@ -8,7 +8,7 @@
 
 @ISA = qw( FS::Record );
 
-$DEBUG = 0;
+$DEBUG = 1;
 $me = '[FS::cust_bill_ApplicationCommon]';
 
 =head1 NAME
@@ -126,7 +126,7 @@
 
   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;