From 15f5a8ed8e981486697790fe9613b1c26dceda42 Mon Sep 17 00:00:00 2001
From: Scott Ostler <scottbot9000@gmail.com>
Date: Wed, 23 Jun 2010 15:57:14 -0400
Subject: Added faving to hall of fame

---
 src/site.clj | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'src/site.clj')

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
-- 
cgit v1.2.3-70-g09d2