software-archive/logarion-2016
2
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

validation attributes in article form

Browse Source
This commit is contained in:
Stavros Polymenis 2016-10-26 23:21:23 +01:00
parent 0f8b49b24e
commit 96bf1ae638
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/html.ml
View File

@ -64,13 +64,13 @@ let form ?(header_tpl=None) blog_url lgrn ymd =
[
input_set
"Title"
(input ~a:[a_name "title"; a_value ymd.meta.title] ());
(input ~a:[a_name "title"; a_value ymd.meta.title; a_required ()] ());
input_set
"Author name"
(input ~a:[a_name "name"; a_value auth_name] ());
input_set
"Author email"
(input ~a:[a_name "email"; a_value auth_addr] ());
(input ~a:[a_name "email"; a_value auth_addr; a_input_type `Email] ());
input_set
"Topics"
(input ~a:[a_name "topics"; a_value (String.concat ", " ymd.meta.topics)] ());