rework suspension delays, RT#6956

[freeside.git] / FS / FS / part_event / Condition / pkg_dundate.pm

diff --git a/FS/FS/part_event/Condition/pkg_dundate.pm b/FS/FS/part_event/Condition/pkg_dundate.pm
index 08b4e0a..f25db2a 100644 (file)
--- a/FS/FS/part_event/Condition/pkg_dundate.pm
+++ b/FS/FS/part_event/Condition/pkg_dundate.pm
@@ -23,10 +23,10 @@ sub condition {
 
 }
 
-#sub condition_sql {
-#  my( $self, $table ) = @_;
-#
-#  'true';
-#}
+sub condition_sql {
+  my( $class, $table, %opt ) = @_;
+  return 'true' unless $table eq 'cust_pkg';
+  "COALESCE($table.dundate,0) <= ". $opt{'time'};
+}
 
 1;