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, [])
structure NM = BinaryMapFn(IntKey)
-val outputDir = "/var/www/dyn/"
+val outputDir = "/home/hcoop/public_html/dyn/"
fun generate () =
let
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 id = usr"
end
val res = countResidents ()