X-Git-Url: http://git.hcoop.net/hcoop/zz_old/portal.git/blobdiff_plain/5146e43500ab781d22aefcb93f643a142ee65ff1..ca98811078e9864cd7f003ca2e85843b6e0d0729:/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`)