addToParents (loc, count)
end
in
- C.fold db folder NM.empty ($`SELECT loc, id, name, rname, bal, joined
+ C.fold db folder NM.empty ($`SELECT loc, id, name, rname, bal, joined, app, shares
FROM Lives JOIN WebUser ON usr = id`)
end
end
fun residentsOneLevel loc =
- C.map (getDb ()) mkUserRow ($`SELECT id, name, rname, bal, joined FROM Lives, WebUser
+ C.map (getDb ()) mkUserRow ($`SELECT id, name, rname, bal, joined, app, shares FROM Lives, WebUser
WHERE loc = ^(C.intToSql loc)
AND usr = id
ORDER BY name`)
WHERE parent ^(intOptToSqlCompare par)
ORDER BY name`)
-end
\ No newline at end of file
+end