diff options
author | ivan <ivan> | 2010-02-06 02:57:12 +0000 |
---|---|---|
committer | ivan <ivan> | 2010-02-06 02:57:12 +0000 |
commit | 942c8b05b17b119a3dad84d7035c76b481dc5b99 (patch) | |
tree | afa91e2825c0c289bfab329a36c274b393c91248 /FS/FS/cust_pkg.pm | |
parent | 50aae8bb98effd9b9cc4736aa6d3333245d349d8 (diff) |
discount reporting, RT#6679
Diffstat (limited to 'FS/FS/cust_pkg.pm')
-rw-r--r-- | FS/FS/cust_pkg.pm | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/FS/FS/cust_pkg.pm b/FS/FS/cust_pkg.pm index acc73df..c3734b5 100644 --- a/FS/FS/cust_pkg.pm +++ b/FS/FS/cust_pkg.pm @@ -2388,10 +2388,7 @@ sub cust_pkg_discount { sub cust_pkg_discount_active { my $self = shift; - grep { my $d = $_->discount; - ! $d->months || $_->months_used < $d->months; # XXX also end date - } - $self->cust_pkg_discount; + grep { $_->status eq 'active' } $self->cust_pkg_discount; } =back |