X-Git-Url: http://git.hcoop.net/hcoop/zz_old/portal.git/blobdiff_plain/302c9f5749afd7ebd40a6f180874a14e78b5d035..99cbe58cba8ecf5e688b04157beef6223c0e26ef:/group.sml

diff --git a/group.sml b/group.sml
index e04a0b4..fc72152 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, app FROM Membership, WebUser
+    C.map (getDb ()) mkUserRow ($`SELECT id, name, rname, bal, joined, app, shares FROM Membership, WebUser
 					WHERE grp = ^(C.intToSql grp)
 					   AND usr = id
 					ORDER BY name`)
@@ -139,4 +139,4 @@ fun groupNameToId name =
 	SOME [id] => SOME (C.intFromSql id)
       | _ => NONE
 
-end
\ No newline at end of file
+end