1 package FS::part_event::Condition::pkg_not_reason_type;
2 use base qw( FS::part_event::Condition );
6 #use FS::Record qw( qsearch );
9 'Package Not Reason Type';
12 sub eventtable_hashref {
20 tie my %actions, 'Tie::IxHash',
22 'susp' => 'Suspension',
24 'cancel' => 'Cancellation'
29 'action' => { 'label' => 'Package Action',
31 'options' => [ keys %actions ],
32 'labels' => \%actions,
34 'typenum' => { 'label' => 'Not Reason Type',
35 'type' => 'select-reason_type',
42 my( $self, $object ) = @_;
44 my $cust_pkg = $self->cust_pkg($object);
46 my $reason = $cust_pkg->last_reason( $self->option('action') )
49 my $hashref = $self->option('typenum') || {};
50 ! $hashref->{ $reason->reason_type };
54 # my( $self, $table ) = @_;