From 178bce3e5937d1a4fe17e4bf57e2737aaa483668 Mon Sep 17 00:00:00 2001
From: Scott Ostler <scottbot9000@gmail.com>
Date: Mon, 23 Aug 2010 16:08:24 -0400
Subject: Fix get-user-ranking to handle null user list

---
 src/site.clj | 12 ++++++------
 1 file 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)
-- 
cgit v1.2.3-70-g09d2