NONE => raise Fail "Not logged in"
| SOME name =>
(case C.oneOrNoRows c ($`SELECT id, name, rname, bal, joined, app
- FROM WebUser
+ FROM WebUserActive
WHERE name=^(C.stringToSql name)`) of
NONE => raise Fail "User not found"
| SOME r =>
FOREIGN KEY (app) REFERENCES MemberApp(id) ON DELETE CASCADE,
FOREIGN KEY (usr) REFERENCES WebUser(id) ON DELETE CASCADE);
+CREATE VIEW WebUserActive
+ AS SELECT id, name, rname, bal, joined, app
+ FROM WebUser
+ LEFT OUTER JOIN (SELECT usr FROM Membership JOIN WebGroup
+ ON grp = WebGroup.id AND WebGroup.name = 'retired') AS mem
+ ON usr = WebUser.id
+
+ WHERE usr IS NULL;
+