cvsimport

[hcoop/zz_old/portal.git] / location.sml

diff --git a/location.sml b/location.sml
index e4464d1..616fd6c 100644 (file)
--- a/location.sml
+++ b/location.sml
@@ -172,7 +172,7 @@ fun locationTree (root, lim) =
            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, [])
@@ -207,7 +207,7 @@ fun locationTreeWithUser (root, lim, usr) =
                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, [])
@@ -244,7 +244,7 @@ fun locationTreeWithCounts (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, [])