X-Git-Url: https://git.hcoop.net/hcoop/portal.git/blobdiff_plain/f3f3ad24b001552bdb1b7535fc8434d6889ef2bc..5d974e39f82ecfb8f520043c6d94b297e6a3511f:/group.sml

diff --git a/group.sml b/group.sml
index cc3d5ea..e04a0b4 100644
--- 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`)