diff options
| author | Scott Ostler <sbsotler@gmail.com> | 2011-03-26 13:52:28 -0400 |
|---|---|---|
| committer | Scott Ostler <sbsotler@gmail.com> | 2011-03-26 13:52:28 -0400 |
| commit | 5ac9bee0dd9d0a3fa146da4f73a42a08e5b94fea (patch) | |
| tree | 4d86b3e3d0c5f9dee963ad68428f48c6d1f64c6d /src/site.clj | |
| parent | 7474492caad7baf3eba7b9e0b33922963de632f8 (diff) | |
| parent | d64fae424115a12a5d21bcc597bc649a02bd2286 (diff) | |
Merge branch 'master' of ssh://dump.fm/pichat/repo
Diffstat (limited to 'src/site.clj')
| -rw-r--r-- | src/site.clj | 4 |
1 files changed, 2 insertions, 2 deletions
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)))] |