FS/FS/part_event/Condition/referred_cust.pm

   1 package FS::part_event::Condition::referred_cust;
   2 use base qw( FS::part_event::Condition );
   3
   4 sub description { 'Customer referred customers'; }
   5
   6 sub option_fields {
   7   (
   8     'number_referred' => { label => 'At least this many referred customers',
   9                            type  => 'text',
  10                            value => '1',
  11                          },
  12     'active'          => { label => 'Referred customers are active',
  13                            type  => 'checkbox',
  14                            value => 'Y',
  15                          },
  16     'if_pkg_class'    => { label    => 'Referred customers have an active package of class',
  17                            type     => 'select-pkg_class',
  18                            multiple => 1,
  19                          },
  20   );
  21 }
  22
  23 sub condition {
  24   my($self, $object, %opt) = @_;
  25
  26   my $cust_main = $self->cust_main($object);
  27
  28   my @referral_cust_main = $cust_main->referral_cust_main;
  29
  30   @referral_cust_main = grep $_->status eq 'active', @referral_cust_main
  31     if $self->option('active');
  32
  33   my $if_pkg_class = $self->option('if_pkg_class') || {};
  34   if ( keys %$if_pkg_class ) {
  35     @referral_cust_main = grep {
  36       my $cust = $_;
  37       grep $if_pkg_class->{$_->part_pkg->classnum}, $cust->active_pkgs;
  38     } @referral_cust_main;
  39   }
  40
  41   scalar(@referral_cust_main) >= $self->option('number_referred');
  42
  43 }
  44
  45 #sub condition_sql {
  46 #  my( $class, $table ) = @_;
  47 #
  48 #  #XXX TODO: this optimization
  49 #}
  50
  51 1;