summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorsostler <sbostler@gmail.com>2010-03-16 08:29:51 -0400
committersostler <sbostler@gmail.com>2010-03-16 08:29:51 -0400
commitb0f2d429f046fda88d2a48883edc6200ad709987 (patch)
tree5c9edc1470eb3e648e5e520be0079368648336be
parent62f5aaff8f376ba3506a6232e62d922601f6783e (diff)
Fixed directory
-rwxr-xr-xsrc/site.clj9
1 files changed, 4 insertions, 5 deletions
diff --git a/src/site.clj b/src/site.clj
index 6efbd2f..2ed5892 100755
--- a/src/site.clj
+++ b/src/site.clj
@@ -416,11 +416,10 @@
(let [res (do-select [qry])
keys (map :user_id res)
dict (zipmap keys res)]
- (map (fn [u]
- (let [u-id (u :user_id)]
- (stringify-and-escape (merge u (dict u-id)))))
- users))
- [])))
+ (map (fn [u]
+ (let [u-id (u :user_id)]
+ (stringify-and-escape (merge u (dict u-id)))))
+ users)))))
(defn update-directory! []
(let [qry "SELECT u.user_id, COUNT(m) as cnt