diff options
| author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2009-03-01 14:15:08 +0100 |
|---|---|---|
| committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2009-03-01 14:15:08 +0100 |
| commit | 4995e3901f80bf22e5e811a85698d1fd34bd2df4 (patch) | |
| tree | 68ea2219ace8585849f5ba5383eaaddde6e4bd81 | |
| parent | 97a850b1d882e6eb9400601734f0856e8f36fd3e (diff) | |
Fix a couple of minor bugs.
| -rw-r--r-- | cljssss-g.clj | 11 |
1 files 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 "*" |