Not a very nice patch allowing to remove javascript from web forms

Cédric RICARD
1 parent f14ca7a6
Showing 1 changed file with 32 additions and 0 deletions Show diff stats
calexium_lib/web/CXM_making_a_web_site.anubis
@@ -1032,6 +1032,14 @@ public define HTML_In_Form
      ) =
    actioner(conn,targ,asp,action_name,extra_ops,[]). 
+public define HTML_In_Form
+   actioner
+     (
+       Actioner_Connection       conn, 
+       Actioner_Target           targ, 
+       Actioner_Aspect           asp, 
+     ) =
+   actioner(conn, targ, asp, "", [], []). 
 public define HTML_In_Form
@@ -1144,6 +1152,9 @@ public type HTML_Off_Form:
                             Maybe((String,List((String,String)))) action),    
    label                 (String name),
    form                  (String form_name, List(CoreAttrs), HTML_In_Form content),
+   form                  (String form_name, List(CoreAttrs), 
+   												String action_name, List((String,String)) extra_ops,
+   												HTML_In_Form content),
    div                   (List(CoreAttrs), HTML_Off_Form content),
    div_empty             (List(CoreAttrs)).
@@ -3101,6 +3112,10 @@ define Printable_tree
                                         text, "</a>"
                                       ],
               javascript(s,h) then 
+              						if action_name = "" then	// special case where URL (so the action_name) is provided by the form itself
+              																			// so javascript isn't needed. This is the standard HMTL way.
+              							  ["<input type=\"submit\" value=\"",text,"\"", format_attrs(options), " />"]
+              						else
                               [s,"<input type=\"submit\" value=\"",text,"\"", format_attrs(options), " onclick=\"",h,"\" />"]
            }
          ], 
@@ -3928,6 +3943,23 @@ define Printable_tree
               format(cinfo,fn,sn,ic_v,c,is_https),               
            "</form>"
          ]
+       form(fn,attributs, action_name, extra_ops, c)        then
+			   with url = make_actioner_url(cinfo, same, same,
+      			                          sn, action_name, extra_ops, is_https), 
+         [
+           "<form name=\"f",fn,"\"",
+           format(cinfo,sn,ic_v,any_coreattrs(attributs),format_element,is_https),
+           " method=\"post\"",
+              enctype(c),
+              " action=\"" + url + "\">",
+//              " action=\"http",
+//                         if is_https then "s" else "",
+//                         "://",common_name,":",http_port,"/\">",      
+                                      // action is set dynamically by
+                                      // the actioner using JavaScript
+              format(cinfo,fn,sn,ic_v,c,is_https),               
+           "</form>"
+         ]
        div(options, e)              then
         format(cinfo,sn,ic_v,any_div(options, e),format_element,is_https),    
        div_empty(options)           then