[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Mldonkey-commits] Changes to mldonkey/src/utils/cdk/printf2.ml
From: |
mldonkey-commits |
Subject: |
[Mldonkey-commits] Changes to mldonkey/src/utils/cdk/printf2.ml |
Date: |
Mon, 07 Nov 2005 15:12:11 -0500 |
Index: mldonkey/src/utils/cdk/printf2.ml
diff -u mldonkey/src/utils/cdk/printf2.ml:1.12
mldonkey/src/utils/cdk/printf2.ml:1.13
--- mldonkey/src/utils/cdk/printf2.ml:1.12 Thu Sep 8 12:30:29 2005
+++ mldonkey/src/utils/cdk/printf2.ml Mon Nov 7 20:11:43 2005
@@ -358,6 +358,22 @@
c (if t <> "" then "title=\\\"" ^ t ^ "\\\"" else "") d;
) l
+
+let html_mods_big_header_start buf c l =
+ Printf.bprintf buf "\\<div class=\\\"%s\\\"\\>\\<table class=main border=0
cellspacing=0 cellpadding=0\\>\\<tr\\>\\<td\\>" c;
+ Printf.bprintf buf "\\<table cellspacing=0 cellpadding=0
width=100%%\\>\\<tr\\>";
+ Printf.bprintf buf "\\<td width=100%%\\>\\</td\\>";
+ let len = List.length l in
+ let cnt = ref 0 in
+ List.iter (fun s ->
+ incr cnt;
+ Printf.bprintf buf "\\<td nowrap class=\\\"fbig%s\\\"\\>%s\\</td\\>" (if
!cnt = len then " pr" else "") s;
+ ) l;
+ Printf.bprintf buf "\\</tr\\>\\</table\\>\\</td\\>\\</tr\\>\\<tr\\>\\<td\\>"
+
+let html_mods_big_header_end buf =
+ Printf.bprintf buf "\\</td\\>\\</tr\\>\\</table\\>\\</div\\>"
+
let html_mods_counter = ref true
let html_mods_cntr () =
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Mldonkey-commits] Changes to mldonkey/src/utils/cdk/printf2.ml,
mldonkey-commits <=