diff options
author | Christopher Burger <burgerc@freeside.biz> | 2017-08-01 10:33:45 -0400 |
---|---|---|
committer | Christopher Burger <burgerc@freeside.biz> | 2017-08-01 10:33:45 -0400 |
commit | 1043f465a4c6a1ab94df2e22823a2a688e102bcd (patch) | |
tree | d01e2f1415e3510922f4f4242d74270df2cbb54d /FS | |
parent | 09a43bd0984104796052ceee7fdae0581612535d (diff) |
RT# 75595 - Add billing event condition that will trigger when the contract end date is coming up
Diffstat (limited to 'FS')
-rw-r--r-- | FS/FS/part_event/Condition/pkg_contract_date.pm | 38 |
1 files changed, 38 insertions, 0 deletions
diff --git a/FS/FS/part_event/Condition/pkg_contract_date.pm b/FS/FS/part_event/Condition/pkg_contract_date.pm new file mode 100644 index 000000000..2bf791aba --- /dev/null +++ b/FS/FS/part_event/Condition/pkg_contract_date.pm @@ -0,0 +1,38 @@ +package FS::part_event::Condition::pkg_contract_date; +use base qw( FS::part_event::Condition ); + +use strict; + +sub description { + 'Package contract date nearing'; +} + +sub eventtable_hashref { + { 'cust_main' => 1, + 'cust_bill' => 1, + 'cust_pkg' => 1, + 'cust_pay' => 1, + 'cust_pay_batch' => 1, + 'cust_statement' => 1, + }; +} + +sub option_fields { + my $class = shift; + ( + 'within' => { 'label' => 'Package contract date with in', + 'type' => 'freq', + }, + ); +} + +sub condition { + my( $self, $cust_pkg, %opt ) = @_; + + my $contract_end_date = $cust_pkg->contract_end ? $cust_pkg->contract_end : 0; + my $contract_within_time = $self->option_age_from('within', $contract_end_date ); + + $opt{'time'} >= $contract_within_time and $contract_within_time > 0; +} + +1;
\ No newline at end of file |