addToParents (#loc lives, count)
end
in
- C.fold db folder NM.empty ($`SELECT loc, usr FROM Lives`)
+ C.fold db folder NM.empty ($`SELECT loc, usr FROM Lives JOIN WebUserActive ON usr = id`)
end
fun recordResidents () =
end
in
C.fold db folder NM.empty ($`SELECT loc, id, name, rname, bal, joined, app, shares, paypal, checkout
- FROM Lives JOIN WebUser ON usr = id`)
+ FROM Lives JOIN WebUserActive ON usr = id`)
end
fun residents loc =
fun residentsOneLevel loc =
C.map (getDb ()) mkUserRow ($`SELECT id, name, rname, bal, joined, app, shares, paypal, checkout
- FROM Lives, WebUser
+ FROM Lives, WebUserActive
WHERE loc = ^(C.intToSql loc)
AND usr = id
ORDER BY name`)