diff options
author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2012-02-29 23:03:56 +0100 |
---|---|---|
committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2012-02-29 23:03:56 +0100 |
commit | 9a38fec9b6552798bb341ce92f40d1ec92865a73 (patch) | |
tree | 119fa96af5cbfd294abd04751cbbfde9f529920f /src/mulk/benki/webutil.clj | |
parent | 30515c14a029c140a82729962b06eecac1745f11 (diff) |
Book Marx: Add feed link to bookmark list page.
Diffstat (limited to 'src/mulk/benki/webutil.clj')
-rw-r--r-- | src/mulk/benki/webutil.clj | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/src/mulk/benki/webutil.clj b/src/mulk/benki/webutil.clj index 3a2cb1e..cf34724 100644 --- a/src/mulk/benki/webutil.clj +++ b/src/mulk/benki/webutil.clj @@ -13,11 +13,9 @@ -(defn authlink [] +(defn authlink [uri] (with-dbt - (let [req (request/ring-request) - user *user* - uri (:uri req) + (let [user *user* dkey (sql/with-query-results results ["SELECT * FROM page_keys WHERE \"user\" = ? AND page = ?" user uri] @@ -43,5 +41,5 @@ [:div {:class "logged-in-as"} (:first_name user) " " (:last_name user) " " - [:a {:href (authlink)} "[authlink]"]] + "[" [:a {:href (authlink (:uri (request/ring-request)))} "authlink"] "]"] [:div {:class "not-logged-in"} [:a {:href (link :login)} "Log in"]]))) |