From c44e70ba8b1a268f3e537e730fc4166b48707be4 Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Tue, 1 Dec 2009 20:35:37 +0100 Subject: Sort the student list by name. --- src/logikorr/servlet.clj | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'src') diff --git a/src/logikorr/servlet.clj b/src/logikorr/servlet.clj index 79ff1e0..7160f1f 100644 --- a/src/logikorr/servlet.clj +++ b/src/logikorr/servlet.clj @@ -43,7 +43,9 @@ (ds/create {:kind "revision" :number 0}))) (defn find-students [] - (ds/find-all (doto (Query. "student" (:key (current-revision)))))) + (ds/find-all (doto (Query. "student" (:key (current-revision))) + (.addSort "last-name") + (.addSort "first-name")))) (defn position [coll thing] (loop [i 0, -- cgit v1.2.3