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 | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/FS/FS/part_event/Condition/has_referral_custnum.pm b/FS/FS/part_event/Condition/has_referral_custnum.pm new file mode 100644 index 000000000..d43d6c0c7 --- /dev/null +++ b/FS/FS/part_event/Condition/has_referral_custnum.pm @@ -0,0 +1,24 @@ +package FS::part_event::Condition::has_referral_custnum; + +use strict; +use FS::cust_main; + +use base qw( FS::part_event::Condition ); + +sub description { 'Customer has a referring customer'; } + +sub condition { + my($self, $object) = @_; + + my $cust_main = $self->cust_main($object); + + $cust_main->referral_custnum; +} + +sub condition_sql { + #my( $class, $table ) = @_; + + "cust_main.referral_custnum IS NOT NULL"; +} + +1; |