fixed form hidden type for uuid

This commit is contained in:
Stavros Polymenis 2016-11-01 23:30:37 +00:00
parent 29157f7f02
commit ae73085088

View File

@ -62,7 +62,7 @@ let form ?(header_tpl=None) blog_url lgrn ymd =
let auth_name = either ymd.meta.author.Author.name Logarion.Configuration.(lgrn.owner) in
let auth_addr = either ymd.meta.author.Author.email Logarion.Configuration.(lgrn.email) in
[
input ~a:[a_name "uuid"; a_value (Id.to_string ymd.meta.uuid); a_hidden ()] ();
input ~a:[a_name "uuid"; a_value (Id.to_string ymd.meta.uuid); a_input_type `Hidden] ();
input_set
"Title"
(input ~a:[a_name "title"; a_value ymd.meta.title; a_required ()] ());