diff options
author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2012-02-27 00:00:12 +0100 |
---|---|---|
committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2012-02-27 00:00:12 +0100 |
commit | 6bed4694e00bbfe3ff65dd00ccb45decf1321d57 (patch) | |
tree | 2e1b396a9ee840addac4ae6c5ef633724833939f /src/mulk/benki/auth.clj | |
parent | 57b0f4c5bde98ca9c0824c879a449e16b8849be4 (diff) |
New subsite: Book Marx.
Diffstat (limited to 'src/mulk/benki/auth.clj')
-rw-r--r-- | src/mulk/benki/auth.clj | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/src/mulk/benki/auth.clj b/src/mulk/benki/auth.clj index e0c730d..93e106e 100644 --- a/src/mulk/benki/auth.clj +++ b/src/mulk/benki/auth.clj @@ -18,10 +18,6 @@ (defonce manager (ConsumerManager.)) -(defn redirect [x] - {:status 302, :headers {"Location" x}, :body ""}) - - (defn return-from-openid-provider [] (let [parlist (ParameterList. (:query-params (request/ring-request))) discovered (session/get :discovered) @@ -79,6 +75,8 @@ )}) (defpage "/login" [] + (session/flash-put! (or (session/flash-get) + (get-in (request/ring-request) [:headers "Referer"]))) (layout login-page-layout "Benki Login" [:form {:action (resolve-uri "/login/authenticate"), :method "GET" |