From 8b77b6f722768216348976e1b4b83cf9a13e2438 Mon Sep 17 00:00:00 2001 From: Scott Ostler Date: Tue, 15 Feb 2011 17:56:09 -0500 Subject: front page going live --- src/site.clj | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) (limited to 'src') diff --git a/src/site.clj b/src/site.clj index fdcf089..b5f400b 100644 --- a/src/site.clj +++ b/src/site.clj @@ -194,16 +194,14 @@ (defn front-page [session] (let [st (fetch-template "frontpage" session) - date-str "20100503";(format-yyyymmdd (Date.)) + date-str (format-yyyymmdd (Date.)) dumps (map process-message-for-output - (fetch-redis-daily-hall date-str 0 30))] + (fetch-redis-daily-hall date-str 0 20))] (.setAttribute st "dumps" dumps) (.toString st))) (defn landing [session] - (if (is-vip? session) - (front-page session) - (redirect-to "/chat"))) + (front-page session)) (defn log-login [user_id ip] ;; i'm using do-cmds here because update-values can't deal with stuff like 'last_login = now()' -- cgit v1.2.3-70-g09d2