addToParents (loc, count)
end
in
- C.fold db folder NM.empty ($`SELECT loc, id, name, rname, bal, joined, app, shares
+ C.fold db folder NM.empty ($`SELECT loc, id, name, rname, bal, joined, app, shares, paypal, checkout
FROM Lives JOIN WebUser ON usr = id`)
end
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, [])
end
fun residentsOneLevel loc =
- 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`)
+ C.map (getDb ()) mkUserRow ($`SELECT id, name, rname, bal, joined, app, shares, paypal, checkout
+ FROM Lives, WebUser
+ WHERE loc = ^(C.intToSql loc)
+ AND usr = id
+ ORDER BY name`)
fun alreadyExists (parent, name) =
case C.oneRow (getDb ()) ($`SELECT COUNT( * ) FROM Location