FS/FS/part_event/Condition/cust_status.pm

   1 package FS::part_event::Condition::cust_status;
   2
   3 use strict;
   4
   5 use base qw( FS::part_event::Condition );
   6 use FS::Record qw( qsearch );
   7
   8 sub description {
   9   'Customer Status';
  10 }
  11
  12 #something like this
  13 sub option_fields {
  14   (
  15     'status'  => { 'label'    => 'Customer Status',
  16                    'type'     => 'select-cust_main-status',
  17                    'multiple' => 1,
  18                  },
  19   );
  20 }
  21
  22 sub condition {
  23   my( $self, $object) = @_;
  24
  25   my $cust_main = $self->cust_main($object);
  26
  27   #XXX test
  28   my $hashref = $self->option('status') || {};
  29   $hashref->{ $cust_main->status };
  30 }
  31
  32 sub condition_sql {
  33   my( $self, $table ) = @_;
  34
  35   '('.FS::cust_main->cust_status_sql . ') IN '.
  36     $self->condition_sql_option_option('status');
  37 }
  38
  39
  40 1;