From b85f4777c02d3b08aa38f6d71d6efa370023cf7f Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Sat, 25 Feb 2012 23:39:46 +0100 Subject: Fix login. --- src/mulk/benki/auth.clj | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src') diff --git a/src/mulk/benki/auth.clj b/src/mulk/benki/auth.clj index 5333269..07e3694 100644 --- a/src/mulk/benki/auth.clj +++ b/src/mulk/benki/auth.clj @@ -60,7 +60,7 @@ (defpage "/login/return" [] (return-from-openid-provider)) -(defpage "/login/authenticate" {openid :openid} +(defpage "/login/authenticate" {openid :openid_identifier} (let [discoveries (.discover manager openid) discovered (.associate manager discoveries) authreq (.authenticate manager discovered (resolve-uri "/login/return"))] @@ -83,5 +83,5 @@ [:p "Please select your OpenID provider:"] [:div {:id "openid_btns"}]] [:div {:id "openid_input_area"} - [:input {:type "text", :name "openid", :id "openid_identifier"}] + [:input {:type "text", :name "openid_identifier", :id "openid_identifier"}] [:input {:type "submit"}]]])) -- cgit v1.2.3