From 5d663327a20784a17f23a7430f0c1fe7eeebe835 Mon Sep 17 00:00:00 2001
From: Steve MARECHAL <steve.marechal@calexium.com>
Date: Fri, 3 Oct 2008 15:54:15 +0000
Subject: [PATCH] text input modified ( maybe(wan) instead of wan)

---
 calexium_lib/web/CXM_making_a_web_site.anubis | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/calexium_lib/web/CXM_making_a_web_site.anubis b/calexium_lib/web/CXM_making_a_web_site.anubis
index 133d502..ace7fd0 100644
--- a/calexium_lib/web/CXM_making_a_web_site.anubis
+++ b/calexium_lib/web/CXM_making_a_web_site.anubis
@@ -1037,7 +1037,7 @@ public type HTML_In_Form:
    foreign_link          (List(Text_Option), String url, String name),
    private_download      (String abs_path, String name, String extra_ext, 
                             Maybe((String,List((String,String)))) action),    
-   text_input            (List(InputAttrs), String label_text, HtmlId id, WebArgName name, InitialValue init, Int width), 
+   text_input            (List(InputAttrs), String label_text, HtmlId id, Maybe(WebArgName) name, InitialValue init, Int width), 
    text_input_ro         (List(InputAttrs), String label_text, HtmlId id, WebArgName name, InitialValue init, Int width), 
    password_input        (List(InputAttrs), String label_text, HtmlId id, WebArgName name, InitialValue init, Int width), 
    text_area             (List(TextAreaOption), String label_text, HtmlId id, WebArgName name, InitialValue init, Int width, Int height), 
@@ -3966,7 +3966,13 @@ define Printable_tree
          format(cinfo,sn,ic_v,any_private_download(url,name,extra,action),format_element,is_https),    
        text_input(options, label_text, id, name, i, w)           then 
          [ maybe_label(label_text, id), 
-           "<input type=\"text\" name=\"",name,"\" id=\"",id,"\" size=\"",w,"\" value=\"",i,"\"",format_attrs(options)," />"],
+           "<input type=\"text\"", if name is 
+                                   {
+                                     failure then [""],
+                                     success(the_name) then [" name=\"",the_name,"\""] 
+                                   },  
+                                   " id=\"",id,"\" size=\"",w,"\" value=\"",i,"\"",format_attrs(options)," />"],
+                                   
        text_input_ro(options, label_text, id, name,i,w)           then 
          [ maybe_label(label_text, id), 
            "<input readonly=\"readonly\" type=\"text\" name=\"",name,"\" id=\"",id,"\" size=\"",w,"\" value=\"",i,"\"",format_attrs(options)," />"],
--
libgit2 0.21.4