1 package FS::part_event::Condition::has_pkg_class;
2 use base qw( FS::part_event::Condition );
7 'Customer has uncancelled package with class';
10 sub eventtable_hashref {
20 'pkgclass' => { 'label' => 'Package Class',
21 'type' => 'select-pkg_class',
28 my( $self, $object ) = @_;
30 my $cust_main = $self->cust_main($object);
33 my $hashref = $self->option('pkgclass') || {};
34 grep $hashref->{ $_->part_pkg->classnum }, $cust_main->ncancelled_pkgs;