diff options
Diffstat (limited to 'src/site.clj')
| -rw-r--r-- | src/site.clj | 8 |
1 files changed, 3 insertions, 5 deletions
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()' |