hidden use now maybe(WebArgName)

Steve MARECHAL
1 parent 9ebdcfa0
Showing 1 changed file with 15 additions and 4 deletions Show diff stats
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
-         ["<input type=\"hidden\" id=\"",id,"\" name=\"",name,"\" value=\"",value,"\" />"],
+         ["<input type=\"hidden\" id=\"",id,"\"",
+                                  if name is
+                                  {
+                                    failure then [""],
+                                     success(the_name) then [" name=\"",the_name,"\""] 
+                                  }, " value=\"",value,"\" />"],
      }.