diff --git a/calexium_lib/web/CXM_generic_table.anubis b/calexium_lib/web/CXM_generic_table.anubis index 698d31c..26f8bbb 100644 --- a/calexium_lib/web/CXM_generic_table.anubis +++ b/calexium_lib/web/CXM_generic_table.anubis @@ -419,6 +419,18 @@ define List(HTML_Cell(HTML_In_Form)) (t,lto,names,line_format,a_color,b_color,do_sum,total_line,new_value,spacer)] ] }. + +public define Int + Int x (mod Int y) + = + if x / y is + { + failure then 0, + success(result) then + if result is (q, r) then r + }. + + public define HTML_In_Form generic_table @@ -453,7 +465,7 @@ public define HTML_In_Form several(n,sp) then sp }, generic_cells - (short_lists(l,nbl/col_nb + if (nbl (mod col_nb)) > 0 then 1 else 0,0), + (short_lists(l,nbl\col_nb + if (nbl (mod col_nb)) > 0 then 1 else 0,0), lto,names,line_format,a_color,b_color, (One u,$Data d) |-> unique,(One _) |-> row([],[]),unique,spacer), total(sum_fct,total_line,init) then @@ -469,7 +481,7 @@ public define HTML_In_Form }, generic_cells ( - short_lists(l,nbl/col_nb + if (nbl (mod col_nb)) > 0 then 1 else 0,0), + short_lists(l,nbl\col_nb + if (nbl (mod col_nb)) > 0 then 1 else 0,0), lto,names,line_format,a_color,b_color, sum_fct,total_line,init,spacer ) @@ -544,7 +556,7 @@ public define HTML_Off_Form }, generic_cells ( - short_lists(l,nbl/col_nb + if (nbl (mod col_nb)) > 0 then 1 else 0,0), + short_lists(l,nbl\col_nb + if (nbl (mod col_nb)) > 0 then 1 else 0,0), lto,names,line_format,a_color,b_color, (One u,$Data d) |-> unique,(One _) |-> row([],[]),unique,spacer ), @@ -561,7 +573,7 @@ public define HTML_Off_Form }, generic_cells ( - short_lists(l,nbl/col_nb + if (nbl (mod col_nb)) > 0 then 1 else 0,0), + short_lists(l,nbl\col_nb + if (nbl (mod col_nb)) > 0 then 1 else 0,0), lto,names,line_format,a_color,b_color, sum_fct,total_line,init,spacer ) -- libgit2 0.21.4