FS/FS/part_event/Condition/pkg_class.pm

   1 package FS::part_event::Condition::pkg_class;
   2
   3 use strict;
   4
   5 use base qw( FS::part_event::Condition );
   6 use FS::Record qw( qsearch );
   7 use FS::pkg_class;
   8
   9 sub description {
  10   'Package Class';
  11 }
  12
  13 sub eventtable_hashref {
  14     { 'cust_main' => 0,
  15       'cust_bill' => 0,
  16       'cust_pkg'  => 1,
  17     };
  18 }
  19
  20 #something like this
  21 sub option_fields {
  22   (
  23     'pkgclass'  => { 'label'    => 'Package Class',
  24                      'type'     => 'select-pkg_class',
  25                      'multiple' => 1,
  26                    },
  27   );
  28 }
  29
  30 sub condition {
  31   my( $self, $cust_pkg ) = @_;
  32
  33   #XXX test
  34   my $hashref = $self->option('pkgclass') || {};
  35   $hashref->{ $cust_pkg->part_pkg->classnum };
  36 }
  37
  38 1;