Don't show pending approved applications older than 1 month

diff --git a/app.sml b/app.sml
index d018983..5d54768 100644 (file)
--- 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)