From 783eefa4a70dd88dd13ffd73c4e23361288628f0 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Tue, 21 Jun 2011 22:14:20 +0000
Subject: rework suspension delays, RT#6956

---
 FS/FS/part_event/Condition/pkg_dundate.pm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'FS')

diff --git a/FS/FS/part_event/Condition/pkg_dundate.pm b/FS/FS/part_event/Condition/pkg_dundate.pm
index 08b4e0abc..f25db2ae8 100644
--- 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;
-- 
cgit v1.2.1