diff options
author | ivan <ivan> | 2009-07-30 06:42:33 +0000 |
---|---|---|
committer | ivan <ivan> | 2009-07-30 06:42:33 +0000 |
commit | 4396080ed2829ae0595f1fd777f39d090c9bcd7c (patch) | |
tree | bf0b7e0fb2437873447d79d3c1291d62902c3be1 /FS/FS/cust_bill_ApplicationCommon.pm | |
parent | 50f5d60aef5ee82be33c978db6424372bfd7995b (diff) |
experimental package balances, RT#4339
Diffstat (limited to 'FS/FS/cust_bill_ApplicationCommon.pm')
-rw-r--r-- | FS/FS/cust_bill_ApplicationCommon.pm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/FS/FS/cust_bill_ApplicationCommon.pm b/FS/FS/cust_bill_ApplicationCommon.pm index af7e087..ec694ca 100644 --- a/FS/FS/cust_bill_ApplicationCommon.pm +++ b/FS/FS/cust_bill_ApplicationCommon.pm @@ -115,6 +115,8 @@ sub apply_to_lineitems { my @apply = (); + my $conf = new FS::Conf; + local $SIG{HUP} = 'IGNORE'; local $SIG{INT} = 'IGNORE'; local $SIG{QUIT} = 'IGNORE'; @@ -127,6 +129,8 @@ sub apply_to_lineitems { my $dbh = dbh; my @open = $self->cust_bill->open_cust_bill_pkg; #FOR UPDATE...? + @open = grep { $_->pkgnum == $self->pkgnum } @open + if $conf->exists('pkg-balances') && $self->pkgnum; warn "$me ". scalar(@open). " open line items for invoice ". $self->cust_bill->invnum. ": ". join(', ', @open). "\n" if $DEBUG; |