From 4995e3901f80bf22e5e811a85698d1fd34bd2df4 Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Sun, 1 Mar 2009 14:15:08 +0100 Subject: Fix a couple of minor bugs. --- cljssss-g.clj | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/cljssss-g.clj b/cljssss-g.clj index 159cd48..c7d8eb0 100644 --- a/cljssss-g.clj +++ b/cljssss-g.clj @@ -124,7 +124,8 @@ feed active-entry-id)) "active_feed_id" feed - "active_feed_title" (and feed (select-feed-name feed user)) + "active_feed_title" (and feed + (select-feed-name user feed)) "title" "Subscriptions"}))))) (defmacro with-session @@ -158,9 +159,13 @@ (with-session (lynxy-showfeed (session :id) (Integer/parseInt (params :feed))))) (GET "/" - (with-session (show-subscriptions (session :id) (params :feed) nil))) + (with-session (show-subscriptions (session :id) + (Integer/parseInt (params :feed)) + nil))) (GET "/entries/*" - (with-session (show-subscriptions (session :id) (params :feed) 5))) + (with-session (show-subscriptions (session :id) + (Integer/parseInt (params :feed)) + 5))) (GET "/layout.css" (serve-file "layout.css")) (ANY "*" -- cgit v1.2.3