HCoop
/
hcoop
/
portal.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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 =
| 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`)
WHERE grp = ^(C.intToSql grp)
AND usr = id
ORDER BY name`)