HCoop
/
hcoop
/
zz_old
/
portal.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Increase domain component length limit
[hcoop/zz_old/portal.git]
/
group.sml
diff --git
a/group.sml
b/group.sml
index
e04a0b4
..
fc72152
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 =
| 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`)
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
SOME [id] => SOME (C.intFromSql id)
| _ => NONE
-end
\ No newline at end of file
+end