Only remind active users about their balances

diff --git a/remind/remind.sml b/remind/remind.sml
index adfedf5..e31204b 100644 (file)
--- a/remind/remind.sml
+++ b/remind/remind.sml
@@ -12,7 +12,7 @@ fun main _ =
        fun getEmail [name] = C.stringFromSql name ^ emailSuffix
          | getEmail row = raise Fail "remind getName"
 
-       val names = C.map db getEmail "SELECT WebUser.name FROM WebUser JOIN Balance ON Balance.name = WebUser.name AND bal = Balance.id WHERE amount < 10"
+       val names = C.map db getEmail "SELECT WebUserActive.name FROM WebUserActive JOIN Balance ON Balance.name = WebUserActive.name AND bal = Balance.id WHERE amount < 10"
 
        val m = Mail.mopen ()
     in