diff options
| -rw-r--r-- | src/site.clj | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/site.clj b/src/site.clj index 0a22a88..ab7a17f 100644 --- a/src/site.clj +++ b/src/site.clj @@ -404,11 +404,11 @@ FROM users u {})) (defn get-user-ranking [offset num] - (let [ranking (:list (poll *user-scores*)) - count (count ranking)] - (subvec ranking - (min count (* offset num)) - (min count (* (inc offset) num))))) + (if-let [ranking (:list (poll *user-scores*))] + (let [cnt (count ranking)] + (subvec ranking + (min count (* offset num)) + (min count (* (inc offset) num)))))) ;; Profile @@ -601,7 +601,7 @@ order by count desc limit ? offset ?") (get-user-ranking offset *per-directory-page*))) -(defn directory [session offset] +(defn directory [session offset] (let [st (fetch-template "directory" session) users (get-directory-info offset)] (.setAttribute st "users" users) |