From 9da44d38f552388680c47ad592edeb2b114d67d4 Mon Sep 17 00:00:00 2001 From: Scott Ostler Date: Wed, 23 Feb 2011 00:06:37 -0500 Subject: add selector for frontpage --- src/datalayer.clj | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/datalayer.clj') diff --git a/src/datalayer.clj b/src/datalayer.clj index 56d5a60..72b86cd 100644 --- a/src/datalayer.clj +++ b/src/datalayer.clj @@ -142,8 +142,8 @@ WHERE u.nick = ANY(?)" (def redis-favscores-key "favscores") -(defn redis-daily-hall-key [date-str] - (str "hall:daily:" date-str)) +(defn redis-daily-hall-key [date] + (str "hall:daily:" (format-yyyymmdd date))) (defn fetch-redis-zset [key symbol offset num] (for [t (with-jedis @@ -155,8 +155,8 @@ WHERE u.nick = ANY(?)" {symbol (.getElement t) :score (int (.getScore t))})) -(defn fetch-redis-daily-hall [date-str offset num user-id] - (let [msg-ids (fetch-redis-zset (redis-daily-hall-key date-str) +(defn fetch-redis-daily-hall [date offset num user-id] + (let [msg-ids (fetch-redis-zset (redis-daily-hall-key date) :message_id offset num) -- cgit v1.2.3-70-g09d2