Update several modules to deal with new WebUser column 'app'

[hcoop/portal.git] / group.sml

diff --git a/group.sml b/group.sml
index cc3d5ea..e04a0b4 100644 (file)
--- a/group.sml
+++ b/group.sml
@@ -107,7 +107,7 @@ fun mkMembershipRow [grp, usr] =
   | mkMembershipRow row = Init.rowError ("membership", row)
 
 fun groupMembers grp =
-    C.map (getDb ()) mkUserRow ($`SELECT id, name, rname, bal, joined FROM Membership, WebUser
+    C.map (getDb ()) mkUserRow ($`SELECT id, name, rname, bal, joined, app FROM Membership, WebUser
                                        WHERE grp = ^(C.intToSql grp)
                                           AND usr = id
                                        ORDER BY name`)