diff options
| author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2009-12-01 20:35:37 +0100 |
|---|---|---|
| committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2009-12-01 20:35:37 +0100 |
| commit | c44e70ba8b1a268f3e537e730fc4166b48707be4 (patch) | |
| tree | 795f03aa7620a54aecdea0448df870adb1990cd2 | |
| parent | f5384e034424601bb9d0d1442541e773e0160b9e (diff) | |
Sort the student list by name.
| -rw-r--r-- | src/logikorr/servlet.clj | 4 |
1 files changed, 3 insertions, 1 deletions
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, |