diff options
| author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2012-02-25 23:39:46 +0100 |
|---|---|---|
| committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2012-02-25 23:39:46 +0100 |
| commit | b85f4777c02d3b08aa38f6d71d6efa370023cf7f (patch) | |
| tree | 321fdaf9713de0221199686975090836adf8fd1d /src/mulk/benki/auth.clj | |
| parent | d1592be24041ff9e5b8185885ce42c17cf11a983 (diff) | |
Fix login.
Diffstat (limited to 'src/mulk/benki/auth.clj')
| -rw-r--r-- | src/mulk/benki/auth.clj | 4 |
1 files changed, 2 insertions, 2 deletions
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"}]]])) |