mldonkey-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: mldonkey-commits
Subject: [Mldonkey-commits] Changes to mldonkey/src/daemon/common/commonGlobals.ml
Date: Fri, 29 Jul 2005 11:40:34 -0400

Index: mldonkey/src/daemon/common/commonGlobals.ml
diff -u mldonkey/src/daemon/common/commonGlobals.ml:1.39 
mldonkey/src/daemon/common/commonGlobals.ml:1.40
--- mldonkey/src/daemon/common/commonGlobals.ml:1.39    Thu Jul 28 18:22:31 2005
+++ mldonkey/src/daemon/common/commonGlobals.ml Fri Jul 29 15:40:33 2005
@@ -484,15 +484,17 @@
 
 let html_mods_table_header 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\\>"
+    Printf.bprintf buf "\\<div class=\\\"%s\\\"\\>\\<table id=\\\"%s\\\" 
name=\\\"%s\\\" class=\\\"%s\\\" cellspacing=0 cellpadding=0\\>"
     c n n c;
-    List.iter (fun (w,x,y,z)  ->
-     (* Sort Class Title Value *)
-     Printf.bprintf buf "\\<td onClick=\\\"_tabSort(this,%s);\\\" 
class=\\\"%s\\\" title=\\\"%s\\\"\\>%s\\</td\\>"
-     w x y z;
-    ) l;
-    Printf.bprintf buf "\\</tr\\>"
-
+    if List.length l > 0 then begin
+        Printf.bprintf buf "\\<tr\\>";
+        List.iter (fun (w,x,y,z)  ->
+         (* Sort Class Title Value *)
+         Printf.bprintf buf "\\<td onClick=\\\"_tabSort(this,%s);\\\" 
class=\\\"%s\\\" title=\\\"%s\\\"\\>%s\\</td\\>"
+         w x y z;
+        ) l;
+        Printf.bprintf buf "\\</tr\\>"
+      end
 (* Add colspan functionality to html_mods_table_header *)
 
 let html_mods_table_header_colspan buf n c l =




reply via email to

[Prev in Thread] Current Thread [Next in Thread]