Commit 0aaa7365 authored by Stephane Glondu's avatar Stephane Glondu
Browse files

Remove legacy login-admin UI

parent 3748c524
......@@ -50,7 +50,7 @@ module Make (N : NAME) (S : CONT_SERVICE) (T : TEMPLATES) : AUTH_INSTANCE = stru
lwt on_success = Eliom_reference.get on_success_ref in
on_success ~user_name ~user_logout >>
S.cont ())
in T.string_login ~service ~kind:`Dummy
in T.dummy_login ~service
)
let handler ~on_success () =
......
......@@ -117,10 +117,9 @@ module Make (S : Web_signatures.ALL_SERVICES) = struct
] in
base ~title:site_title ~content
let string_login ~kind ~service =
let title, field_name, input_type = match kind with
| `Dummy -> "Dummy login", "Username:", `Text
| `Admin -> "Admin login", "Admin password:", `Password
let dummy_login ~service =
let title, field_name, input_type =
"Dummy login", "Username:", `Text
in
let form = post_form ~service
(fun name ->
......
......@@ -168,8 +168,7 @@ end
module type TEMPLATES = sig
val string_login :
kind:[< `Admin | `Dummy ] ->
val dummy_login :
service:(unit, 'a, [< Eliom_service.post_service_kind ],
[< Eliom_service.suff ], 'b,
[< string Eliom_parameter.setoneradio ]
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment