From 6bed4694e00bbfe3ff65dd00ccb45decf1321d57 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Mon, 27 Feb 2012 00:00:12 +0100
Subject: New subsite: Book Marx.

---
 src/mulk/benki/auth.clj | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

(limited to 'src/mulk/benki/auth.clj')

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"
-- 
cgit v1.2.3