[Mldonkey-commits] Changes to mldonkey/src/daemon/common/commonGlobals.ml

[mldonkey-commits]

Index: mldonkey/src/daemon/common/commonGlobals.ml
diff -u mldonkey/src/daemon/common/commonGlobals.ml:1.38 
mldonkey/src/daemon/common/commonGlobals.ml:1.39
--- mldonkey/src/daemon/common/commonGlobals.ml:1.38    Sat Jul 23 14:19:48 2005
+++ mldonkey/src/daemon/common/commonGlobals.ml Thu Jul 28 18:22:31 2005
@@ -493,6 +493,19 @@
     ) l;
     Printf.bprintf buf "\\</tr\\>"
 
+(* Add colspan functionality to html_mods_table_header *)
+
+let html_mods_table_header_colspan buf n c l =
+    (* Name Class List *)
+    Printf.bprintf buf "\\<div class=\\\"%s\\\"\\>\\<table id=\\\"%s\\\" 
name=\\\"%s\\\" class=\\\"%s\\\" cellspacing=0 cellpadding=0\\>\\<tr\\>"
+    c n n c;
+    List.iter (fun (v,w,x,y,z)  ->
+     (* Sort Class Title Value *)
+     Printf.bprintf buf "\\<td colspan=%s onClick=\\\"_tabSort(this,%s);\\\" 
class=\\\"%s\\\" title=\\\"%s\\\"\\>%s\\</td\\>"
+     v w x y z;
+    ) l;
+    Printf.bprintf buf "\\</tr\\>"
+
 let html_mods_table_no_header buf n c l =
     (* 1 row * n cols *)
     (* Name Class List *)