1 package FS::part_event::Condition::pkg_dundate;
2 use base qw( FS::part_event::Condition );
7 "Skip until package suspension delay date";
10 sub eventtable_hashref {
18 my($self, $cust_pkg, %opt) = @_;
20 #my $cust_main = $self->cust_main($cust_pkg);
22 $cust_pkg->dundate <= $opt{time};
27 my( $class, $table, %opt ) = @_;
28 return 'true' unless $table eq 'cust_pkg';
29 "COALESCE($table.dundate,0) <= ". $opt{'time'};