fix the generation of style and class into single string for each instead of mul…

…tiple string which is wrong

fix the generation of style and class into single string for each instead of mul…
…tiple string which is wrong
totoro
1 parent 025cb599
Showing 1 changed file with 18 additions and 8 deletions Show diff stats
web/CXM_making_a_web_site.anubis
@@ -3302,19 +3302,22 @@ public define String
 define String
   format_attrs
   (
-    List(InputAttrs)  attributs
+    List(InputAttrs)  attributs,
+    List(String)      classes,
+    List(String)      styles
   )=
   if attributs is
   {
-    []      then "",
-    [h . t]  then 
+    []      then 
+      if length(classes) = 0 then "" else " class=\""+join(" ",classes)+"\""+
+      if length(styles) = 0 then "" else " style=\""+join(";",styles)+"\"",
+    [h . t] then 
       with current = if h is
       {
-        class(class_name) then
-           " class=\"" + class_name + "\"",
+        class(class_name) then 
+           format_attrs(t, [class_name. classes], styles),
         style(style_string)  then
-          " style=\"" + style_string + "\"",
-        
+           format_attrs(t, classes, [style_string . styles]),       
         title(title_string) then  
            " title=\"" + title_string + "\"",
  
@@ -3338,9 +3341,16 @@ define String
         event(e, value) then  
            " " + event_name(e) + "=\"" + value + "\"",
       },
-      current + format_attrs(t)
+      current + format_attrs(t, classes, styles)
   }.
  
+define String
+  format_attrs
+  (
+    List(InputAttrs)  attributs
+  )= 
+  format_attrs(attributs, [], []).
+  
 define String 
   format_text_options
   (