diff options
| -rw-r--r-- | FS/FS/part_event/Condition/has_referral_pkgpart.pm | 38 |
1 files changed, 38 insertions, 0 deletions
diff --git a/FS/FS/part_event/Condition/has_referral_pkgpart.pm b/FS/FS/part_event/Condition/has_referral_pkgpart.pm new file mode 100644 index 000000000..60ba7ccd5 --- /dev/null +++ b/FS/FS/part_event/Condition/has_referral_pkgpart.pm @@ -0,0 +1,38 @@ +package FS::part_event::Condition::has_referral_pkgpart; +use base qw( FS::part_event::Condition ); + +#maybe i should be incorporated in has_referral_custnum + +use strict; + +sub description { 'Customer has a referring customer with uncancelled specific package(s)'; } + +sub option_fields { + ( + 'if_pkgpart' => { 'label' => 'Only packages: ', + 'type' => 'select-part_pkg', + 'multiple' => 1, + }, + ); +} + +sub condition { + my($self, $object, %opt) = @_; + + my $cust_main = $self->cust_main($object); + + return 0 unless $cust_main->referral_custnum; + + my $if_pkgpart = $self->option('if_pkgpart') || {}; + grep $if_pkgpart->{ $_->pkgpart }, + $cust_main->referral_custnum_cust_main->ncancelled_pkgs; + #maybe billing_pkgs +} + +#XXX +#sub condition_sql { +# +#} + +1; + |