diff options
| author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2009-03-01 17:35:41 +0100 |
|---|---|---|
| committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2009-03-01 17:35:41 +0100 |
| commit | cb34c93b888eda3f8d851398462dfe6152d33f77 (patch) | |
| tree | a9250dd10b75f74dbf70127387cdde7e76182a21 | |
| parent | e8867718be79a6c15c61939676798fb51e344759 (diff) | |
On the entry list, actually obey the user's request and show the appropriate entry in full.
| -rw-r--r-- | cljssss-g.clj | 9 |
1 files 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 "*" |