diff options
| author | sostler <sbostler@gmail.com> | 2010-03-16 08:29:51 -0400 |
|---|---|---|
| committer | sostler <sbostler@gmail.com> | 2010-03-16 08:29:51 -0400 |
| commit | b0f2d429f046fda88d2a48883edc6200ad709987 (patch) | |
| tree | 5c9edc1470eb3e648e5e520be0079368648336be | |
| parent | 62f5aaff8f376ba3506a6232e62d922601f6783e (diff) | |
Fixed directory
| -rwxr-xr-x | src/site.clj | 9 |
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 |
