fun mkGroupRow [id, name] =
{id = C.intFromSql id, name = C.stringFromSql name}
- | mkGroupRow row = raise Fail ("Bad group row : " ^ makeSet id row)
+ | mkGroupRow row = Init.rowError ("group", row)
fun addGroup name =
let
val id = nextSeq (db, "WebGroupSeq")
in
C.dml db ($`INSERT INTO WebGroup (id, name)
- VALUES (^id, ^(C.stringToSql name))`);
- C.intFromSql id
+ VALUES (^(C.intToSql id), ^(C.stringToSql name))`);
+ id
end
fun lookupGroup id =
FROM Membership
WHERE grp = ^(C.intToSql grp)
AND usr = ^(C.intToSql usr)`) of
- SOME[x] => x <> "0"
+ SOME[x] => not (C.isNull x) andalso C.intFromSql x <> 0
| _ => false)
end
WHERE name = ^(C.stringToSql grp)
AND usr = ^(C.intToSql usr)
AND grp = id`) of
- SOME[x] => x <> "0"
+ SOME[x] => not (C.isNull x) andalso C.intFromSql x <> 0
| _ => false)
end
fun mkMembershipRow [grp, usr] =
{grp = C.intFromSql grp, usr = C.intFromSql usr}
- | mkMembershipRow row = raise Fail ("Bad membership row : " ^ makeSet id row)
+ | mkMembershipRow row = Init.rowError ("membership", row)
fun groupMembers grp =
C.map (getDb ()) mkUserRow ($`SELECT id, name, rname, bal, joined FROM Membership, WebUser