diff options
| author | ivan <ivan> | 2007-02-05 22:12:45 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2007-02-05 22:12:45 +0000 |
| commit | 553bae9c8217daa25c83681ba633e9c112e3d9b1 (patch) | |
| tree | 1b1f9216a350fc98e399c8b0d993958394e00c75 | |
| parent | cd9740708c8658665101ef6ad667b1afc2cd04ff (diff) | |
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
| -rw-r--r-- | FS/FS/cust_bill_ApplicationCommon.pm | 4 |
1 files changed, 2 insertions, 2 deletions
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; |