diff options
Diffstat (limited to 'FS/FS/part_event/Condition/cust_status.pm')
-rw-r--r-- | FS/FS/part_event/Condition/cust_status.pm | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/FS/FS/part_event/Condition/cust_status.pm b/FS/FS/part_event/Condition/cust_status.pm new file mode 100644 index 0000000..fbdff25 --- /dev/null +++ b/FS/FS/part_event/Condition/cust_status.pm @@ -0,0 +1,32 @@ +package FS::part_event::Condition::cust_status; + +use strict; + +use base qw( FS::part_event::Condition ); +use FS::Record qw( qsearch ); + +sub description { + 'Customer Status'; +} + +#something like this +sub option_fields { + ( + 'status' => { 'label' => 'Customer Status', + 'type' => 'select-cust_main-status', + 'multiple' => 1, + }, + ); +} + +sub condition { + my( $self, $object) = @_; + + my $cust_main = $self->cust_main($object); + + #XXX test + my $hashref = $self->option('status') || {}; + $hashref->{ $cust_main->status }; +} + +1; |