Support retiring balances of departed members

[hcoop/portal.git] / remind / remind.sml

diff --git a/remind/remind.sml b/remind/remind.sml
index b1252c1..adfedf5 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 WHERE amount < 10"
+       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 m = Mail.mopen ()
     in