[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.52 
mldonkey/src/daemon/common/commonGlobals.ml:1.53
--- mldonkey/src/daemon/common/commonGlobals.ml:1.52    Thu Sep  1 16:50:59 2005
+++ mldonkey/src/daemon/common/commonGlobals.ml Thu Sep  8 12:30:28 2005
@@ -474,105 +474,6 @@
   done
 let last_message_log = ref 0
 
-let html_mods_commands buf n c l =
-    (* Name Class List *)
-    Printf.bprintf buf "\\<div class=\\\"%s\\\"\\>\\<table id=\\\"%s\\\"
-    name=\\\"%s\\\" class=\\\"%s\\\" cellspacing=0 cellpadding=0
-    width=\\\"100pc\\\"\\>\\<tbody\\>\\<tr\\>"
-    c n n c;
-    List.iter (fun (w,x,y,z)  ->
-     (* Class Title Onclick Value *)
-     Printf.bprintf buf "\\<td class=\\\"%s\\\"
-     title=\\\"%s\\\" onMouseOver=\\\"mOvr(this,'mOvr1');\\\" 
onMouseOut=\\\"mOut(this);\\\"
-     onClick=\\\"%s\\\" \\>%s\\</td\\>"
-     w x y z;
-    ) l;
-    Printf.bprintf buf "\\</tr\\>\\</tbody\\>\\</table\\>\\</div\\>"
-
-(*
-  html_mods_commands buf "commandsTable" "commands" [
-    ( "bu bbig", "Extend search to more servers and view results", 
"mSub('output','vr');", "Extend search" ) ;
-*)
-
-
-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\\>"
-    c n n c;
-    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 =
-    (* 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 *)
-    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 (t,c,d)  ->
-    (* Title Class Value *)
-     Printf.bprintf buf "\\<td class=\\\"%s\\\" %s\\>%s\\</td\\>"
-     c (if t <> "" then "title=\\\"" ^ t ^ "\\\"" else "") d;
-    ) l;
-    Printf.bprintf buf "\\</tr\\>\\</table\\>\\</div\\>"
-
-let html_mods_table_one_row buf n c l =
-    (* 1 row * n cols *)
-    (* 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 (t,c,d)  ->
-    (* Title Class Value *)
-     Printf.bprintf buf "\\<td class=\\\"%s\\\" %s\\>%s\\</td\\>"
-     c (if t <> "" then "title=\\\"" ^ t ^ "\\\"" else "") d;
-    ) l;
-    Printf.bprintf buf "\\</tr\\>\\</table\\>\\</div\\>"
-
-let html_mods_table_one_col buf n c l =
-    (* n rows * 1 col *)
-    (* 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 (t,c,d)  ->
-    (* Title Class Value *)
-     Printf.bprintf buf "\\<tr\\>\\<td class=\\\"%s\\\" 
%s\\>%s\\</td\\>\\</tr\\>"
-     c (if t <> "" then "title=\\\"" ^ t ^ "\\\"" else "") d;
-    ) l;
-    Printf.bprintf buf "\\</tr\\>\\</table\\>\\</div\\>"
-
-let html_mods_td buf l =
-    (* List *)
-    List.iter (fun (t,c,d)  ->
-    (* Title Class Value *)
-     Printf.bprintf buf "\\<td class=\\\"%s\\\" %s\\>%s\\</td\\>"
-     c (if t <> "" then "title=\\\"" ^ t ^ "\\\"" else "") d;
-    ) l
-
-let html_mods_counter = ref true
-
-let html_mods_cntr () =
-    html_mods_counter := not !html_mods_counter;
-    if !html_mods_counter then 1 else 2
-
-let html_mods_cntr_init () =
-  html_mods_counter := true
 
 
 let debug_clients = ref Intset.empty