aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Andreas Benkard <code@mail.matthias.benkard.de>2009-03-01 16:32:06 +0100
committerMatthias Andreas Benkard <code@mail.matthias.benkard.de>2009-03-01 16:32:06 +0100
commit270feeb0273d0f1b70cbdc592473deea00d92bd6 (patch)
treecd65bb7f2aefa2c5c47825add635f5b1fdb89b94
parent9c6f0c9e0ad3b135add646b966e9b0152f640379 (diff)
Make the main page show correctly again.
-rw-r--r--cljssss-g.clj8
1 files changed, 5 insertions, 3 deletions
diff --git a/cljssss-g.clj b/cljssss-g.clj
index 1f0b3e6..fb55c85 100644
--- a/cljssss-g.clj
+++ b/cljssss-g.clj
@@ -161,12 +161,14 @@
(lynxy-showfeed (session :id) (Integer/parseInt (params :feed)))))
(GET "/"
(with-session (show-subscriptions (session :id)
- (Integer/parseInt (params :feed))
+ (and (params :feed)
+ (Integer/parseInt (params :feed)))
nil)))
(GET "/entries/*"
(with-session (show-subscriptions (session :id)
- (Integer/parseInt (params :feed))
- 5)))
+ (and (params :feed)
+ (Integer/parseInt (params :feed)))
+ 5))) ;FIXME
(GET "/layout.css"
(serve-file "layout.css"))
(ANY "*"