summaryrefslogtreecommitdiff
path: root/src/site.clj
diff options
context:
space:
mode:
authorScott Ostler <scottbot9000@gmail.com>2011-02-21 23:28:46 -0500
committerScott Ostler <scottbot9000@gmail.com>2011-02-21 23:28:46 -0500
commitd6c8d8ab019721ba47a289de97c95e9786dd5ded (patch)
treefbafe9199d175250477f3881f5b5e5808df81df8 /src/site.clj
parentf2525430e94460085f369a526986b2b0a176b99f (diff)
sostler add favorite to frontpage
Diffstat (limited to 'src/site.clj')
-rw-r--r--src/site.clj4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/site.clj b/src/site.clj
index 2e1bfe8..98524d4 100644
--- a/src/site.clj
+++ b/src/site.clj
@@ -196,7 +196,7 @@
(let [st (fetch-template "frontpage" session)
date-str (format-yyyymmdd (Date.))
dumps (map process-message-for-output
- (fetch-redis-daily-hall date-str 0 20))]
+ (fetch-redis-daily-hall date-str 0 20 (:user_id session)))]
(.setAttribute st "dumps" dumps)
(.toString st)))
@@ -788,8 +788,8 @@ WHERE user_id IN
(let [nick (session :nick)
user-id (session :user_id)
msg-id (params :message_id)
- tag (validate-tag (params :tag))
msg (fetch-message-by-id msg-id)
+ tag (validate-tag (params :tag))
access (or (is-vip? session)
(not (:admin_only msg)))]
(cond (not msg) (resp-error "NO_MSG")