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 =
in
C.fold db folder acc ($`SELECT id, parent, name FROM Location
WHERE parent ^(intOptToSqlCompare root)
- ORDER BY name`)
+ ORDER BY name DESC`)
end
in
locationTree' (root, lim, [])
C.fold db folder acc ($`SELECT loc, id, parent, name
FROM Location LEFT OUTER JOIN Lives ON (id = loc AND usr = ^(C.intToSql usr))
WHERE parent ^(intOptToSqlCompare root)
- ORDER BY name`)
+ ORDER BY name DESC`)
end
in
locationTree' (root, lim, [])
C.fold db folder acc ($`SELECT id, parent, name
FROM Location
WHERE parent ^(intOptToSqlCompare root)
- ORDER BY name`)
+ ORDER BY name DESC`)
end
in
locationTree' (root, lim, [])
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`)