From 4a51655dd1174dbb2a594c56b6c300f01872a949 Mon Sep 17 00:00:00 2001 From: Scott Ostler Date: Sun, 6 Mar 2011 23:30:58 -0500 Subject: Fix favscore nick lookup, clean up front page redirection --- src/site.clj | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/site.clj') diff --git a/src/site.clj b/src/site.clj index 35073e5..b6c8882 100644 --- a/src/site.clj +++ b/src/site.clj @@ -205,8 +205,8 @@ ([session dt-str] (let [today (Date.)] (if-let [[prev-date cur-date next-date] (parse-front-page-date dt-str)] - (cond (neg? (.compareTo cur-date earliest-daily-hall)) (redirect-to "/") - (pos? (.compareTo cur-date (Date.))) (redirect-to "/") + (cond (.before cur-date earliest-daily-hall) (redirect-to "/") + (.after cur-date today) (redirect-to "/") :else (let [st (fetch-template "frontpage" session) dumps (map process-message-for-output (fetch-redis-daily-hall cur-date 0 20 (:user_id session)))] -- cgit v1.2.3-70-g09d2