diff options
| author | Scott Ostler <scottbot9000@gmail.com> | 2010-06-23 15:57:14 -0400 |
|---|---|---|
| committer | Scott Ostler <scottbot9000@gmail.com> | 2010-06-23 15:57:14 -0400 |
| commit | 15f5a8ed8e981486697790fe9613b1c26dceda42 (patch) | |
| tree | 172b66b346bb4d8d90ec255125a02576b182280d /src/site.clj | |
| parent | c4041b4766f8afa0c462fbea2963b61bc43f0e08 (diff) | |
Added faving to hall of fame
Diffstat (limited to 'src/site.clj')
| -rw-r--r-- | src/site.clj | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/src/site.clj b/src/site.clj index 6a011c6..0967431 100644 --- a/src/site.clj +++ b/src/site.clj @@ -1047,8 +1047,11 @@ FROM users u (unknown-page))) (defn hall-of-fame [session] - (let [st (fetch-template "fame" session)] - (.setAttribute st "dumps" (map process-message-for-output (poll hall-results))) + (let [st (fetch-template "fame" session) + msgs (add-user-favs-to-msgs (poll hall-results) + (session :user_id))] + (println "hall msgs:" msgs) + (.setAttribute st "dumps" (map process-message-for-output msgs)) (.toString st))) ;; Compojure Routes |