Update form example for recent tyxml

ocsigen · Dec 2, 2024 · 9d1616c · 9d1616c
1 parent 00c0378
commit 9d1616c
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/tutos/8.0/manual/basics-server.wiki b/tutos/8.0/manual/basics-server.wiki
@@ -568,8 +568,8 @@ Form.post_form
  ~service:connection_service
    (fun (name, password) ->
      [fieldset
-       [label ~a:[a_for name] [txt "Name: "];
-        Form.input ~input_type:`Text ~name:name Form.int;
+       [label ~a:[a_label_for "loginname"] [txt "Name: "];
+        Form.input ~a:[a_id "loginname"] ~input_type:`Text ~name Form.int;
         br ();
         Form.input
           ~a:[a_placeholder "Password"]

diff --git a/tutos/dev/manual/basics-server.wiki b/tutos/dev/manual/basics-server.wiki
@@ -568,8 +568,8 @@ Form.post_form
  ~service:connection_service
    (fun (name, password) ->
      [fieldset
-       [label ~a:[a_for name] [txt "Name: "];
-        Form.input ~input_type:`Text ~name:name Form.int;
+       [label ~a:[a_label_for "loginname"] [txt "Name: "];
+        Form.input ~a:[a_id "loginname"] ~input_type:`Text ~name Form.int;
         br ();
         Form.input
           ~a:[a_placeholder "Password"]