diff options
Diffstat (limited to 'FS/FS/part_event/Condition/has_referral_custnum.pm')
-rw-r--r-- | FS/FS/part_event/Condition/has_referral_custnum.pm | 26 |
1 files changed, 25 insertions, 1 deletions
diff --git a/FS/FS/part_event/Condition/has_referral_custnum.pm b/FS/FS/part_event/Condition/has_referral_custnum.pm index d43d6c0..61a8155 100644 --- a/FS/FS/part_event/Condition/has_referral_custnum.pm +++ b/FS/FS/part_event/Condition/has_referral_custnum.pm @@ -7,18 +7,42 @@ use base qw( FS::part_event::Condition ); sub description { 'Customer has a referring customer'; } +sub option_fields { + ( + 'active' => { 'label' => 'Referring customer is active', + 'type' => 'checkbox', + 'value' => 'Y', + }, + ); +} + sub condition { my($self, $object) = @_; my $cust_main = $self->cust_main($object); - $cust_main->referral_custnum; + if ( $self->option('active') ) { + + return 0 unless $cust_main->referral_custnum; + + #check for no cust_main for referral_custnum? (deleted?) + + $cust_main->referral_custnum_cust_main->status eq 'active'; + + } else { + + $cust_main->referral_custnum; # ? 1 : 0; + + } + } sub condition_sql { #my( $class, $table ) = @_; "cust_main.referral_custnum IS NOT NULL"; + + #XXX a bit harder to check active status here } 1; |