diff --git a/calexium_lib/web/CXM_making_a_web_site.anubis b/calexium_lib/web/CXM_making_a_web_site.anubis index c4baed4..1079b36 100644 --- a/calexium_lib/web/CXM_making_a_web_site.anubis +++ b/calexium_lib/web/CXM_making_a_web_site.anubis @@ -1055,7 +1055,7 @@ public type HTML_In_Form: check_box_r (List(InputAttrs), String label_text, HtmlId id, WebArgName name, WebArgValue value, Bool checked), div (List(CoreAttrs), HTML_In_Form content), div_empty (List(CoreAttrs)), - hidden (HtmlId id, WebArgName name, InitialValue init). + hidden (HtmlId id, Maybe(WebArgName) name, InitialValue init). 'HTML_In_Form' defines all the elements you may put within a form. We define a @@ -1198,8 +1198,14 @@ public define HTML_In_Form = file_upload([], "", htmlId(""), name, width). public define HTML_In_Form - hidden (WebArgName name, InitialValue init) - = if name is wan(web_name) then + hidden (Maybe(WebArgName) name, InitialValue init) + = with web_name = + if name is + { + failure then "", + success(w_name) then + if w_name is wan(the_w_name) then the_w_name + }, hidden(htmlId(web_name), name, init). public type HTML_Body:... @@ -4018,7 +4024,12 @@ define Printable_tree div_empty(options) then format(cinfo,sn,ic_v,any_div_empty(options),format_element,is_https), hidden(id, name, value) then - [""], + [""], }. -- libgit2 0.21.4