From 9d1616c43430c9e38e467e7abc22bbbf9557e95d Mon Sep 17 00:00:00 2001 From: Vincent Balat Date: Mon, 2 Dec 2024 16:36:05 +0100 Subject: [PATCH] Update form example for recent tyxml --- tutos/8.0/manual/basics-server.wiki | 4 ++-- tutos/dev/manual/basics-server.wiki | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/tutos/8.0/manual/basics-server.wiki b/tutos/8.0/manual/basics-server.wiki index 39f5ca25..4c948a20 100644 --- 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 index 39f5ca25..4c948a20 100644 --- 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"]