FS/FS/part_event/Condition/has_referral_custnum.pm

   1 package FS::part_event::Condition::has_referral_custnum;
   2
   3 use strict;
   4 use FS::cust_main;
   5
   6 use base qw( FS::part_event::Condition );
   7
   8 sub description { 'Customer has a referring customer'; }
   9
  10 sub condition {
  11   my($self, $object) = @_;
  12
  13   my $cust_main = $self->cust_main($object);
  14
  15   $cust_main->referral_custnum;
  16 }
  17
  18 sub condition_sql {
  19   #my( $class, $table ) = @_;
  20
  21   "cust_main.referral_custnum IS NOT NULL";
  22 }
  23
  24 1;