From b45f26c921c9c2824496852bd2d493b5dbeb77fa Mon Sep 17 00:00:00 2001
From: adamch <adamch>
Date: Sun, 18 Nov 2007 22:02:17 +0000
Subject: [PATCH] Don't show pending approved applications older than 1 month

---
 app.sml | 1 +
 1 file changed, 1 insertion(+)

diff --git a/app.sml b/app.sml
index d018983..5d54768 100644
--- a/app.sml
+++ b/app.sml
@@ -58,6 +58,7 @@ fun listApps status =
     C.map (getDb ()) mkAppRow ($`SELECT id, name, rname, gname, email, forward, uses, other, passwd, status, applied, ipaddr, confirmed, decided, msg
 			         FROM MemberApp
 			         WHERE status = ^(statusToSql status)
+				   AND NOT (status = 2 AND decided < CURRENT_TIMESTAMP - INTERVAL '1 MONTH')
 			         ORDER BY applied`)
 
 fun mkVoteRow [id, name] = (C.intFromSql id, C.stringFromSql name)
-- 
2.20.1