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_discount.pm | |
parent | 50aae8bb98effd9b9cc4736aa6d3333245d349d8 (diff) |
discount reporting, RT#6679
Diffstat (limited to 'FS/FS/cust_pkg_discount.pm')
-rw-r--r-- | FS/FS/cust_pkg_discount.pm | 21 |
1 files changed, 20 insertions, 1 deletions
diff --git a/FS/FS/cust_pkg_discount.pm b/FS/FS/cust_pkg_discount.pm index 8dd00de89..1b97bba03 100644 --- a/FS/FS/cust_pkg_discount.pm +++ b/FS/FS/cust_pkg_discount.pm @@ -1,7 +1,7 @@ package FS::cust_pkg_discount; use strict; -use base qw( FS::Record ); +use base qw( FS::cust_main_Mixin FS::Record ); use FS::Record qw( dbh qsearchs ); # qsearch ); use FS::cust_pkg; use FS::discount; @@ -165,6 +165,7 @@ sub check { || $self->ut_float('months_used') #actually decimal, but this will do || $self->ut_numbern('end_date') || $self->ut_text('otaker') + || $self->ut_enum('disabled', [ '', 'Y' ] ) ; return $error if $error; @@ -207,6 +208,24 @@ sub increment_months_used { $self->replace(); } +=item status + +=cut + +sub status { + my $self = shift; + my $discount = $self->discount; + + if ( $self->disabled ne 'Y' + and ( ! $discount->months || $self->months_used < $discount->months ) + #XXX also end date + ) { + 'active'; + } else { + 'expired'; + } +} + =back =head1 BUGS |