Merge branch 'master' of git.freeside.biz:/home/git/freeside
[freeside.git] / FS / FS / part_event / Condition / message_email.pm
1 package FS::part_event::Condition::message_email;
2 use base qw( FS::part_event::Condition );
3 use strict;
4
5 sub description {
6   'Customer allows email notices'
7 }
8
9 sub condition {
10   my( $self, $object ) = @_;
11   my $cust_main = $self->cust_main($object);
12
13   $cust_main->message_noemail ? 0 : 1;
14 }
15
16 sub condition_sql {
17   my( $self, $table ) = @_;
18
19   "cust_main.message_noemail IS NULL"
20 }
21
22 1;