1 package FS::part_event::Condition::hasnt_cust_payby_auto;
2 use base qw( FS::part_event::Condition );
5 use FS::Record qw(qsearch);
8 'Customer does not have automatic payment information';
12 my( $self, $object ) = @_;
14 my $cust_main = $self->cust_main($object);
17 'table' => 'cust_payby',
18 'hashref' => { 'custnum' => $cust_main->custnum,
20 'extra_sql' => "AND payby IN ( 'CARD', 'CHEK' )",
21 'order_by' => 'LIMIT 1',