From cb34c93b888eda3f8d851398462dfe6152d33f77 Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Sun, 1 Mar 2009 17:35:41 +0100 Subject: On the entry list, actually obey the user's request and show the appropriate entry in full. --- cljssss-g.clj | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/cljssss-g.clj b/cljssss-g.clj index ad80a37..d232b53 100644 --- a/cljssss-g.clj +++ b/cljssss-g.clj @@ -295,10 +295,11 @@ to merely being replaced with a div element)?" (Integer/parseInt (params :feed))) nil))) (GET "/entries/*" - (with-session (show-subscriptions (session :id) - (and (params :feed) - (Integer/parseInt (params :feed))) - 5))) ;FIXME + (let [[match entry-id-string] (re-find #"^/entries/(.*)" path)] + (with-session (show-subscriptions (session :id) + (and (params :feed) + (Integer/parseInt (params :feed))) + (Integer/parseInt entry-id-string))))) (GET "/layout.css" (serve-file "layout.css")) (ANY "*" -- cgit v1.2.3