From: Adam Chlipala <adamc@hcoop.net>
Date: Thu, 22 May 2008 00:13:54 +0000 (+0000)
Subject: Activate reseting of delinquent high pledges
X-Git-Url: http://git.hcoop.net/bpt/portal.git/commitdiff_plain/49e613aeb7d8d989e43aa13bfa66c2b6cb0ac11f

Activate reseting of delinquent high pledges
---

diff --git a/money.sml b/money.sml
index d0668a4..1ce5774 100644
--- a/money.sml
+++ b/money.sml
@@ -292,7 +292,7 @@ fun delinquentPledgers () =
     end
 
 fun resetPledges ids =
-    raise Fail ($`UPDATE WebUser SET shares = 1 WHERE id IN (^(String.concatWith ", " (List.map C.intToSql ids)))`)
+    ignore (C.dml (getDb ()) ($`UPDATE WebUser SET shares = 1 WHERE id IN (^(String.concatWith ", " (List.map C.intToSql ids)))`))
 
 fun freezeworthyPledgers () =
     let