[Mldonkey-commits] Changes to mldonkey/src/networks/bittorrent/bTInteractive.ml

[mldonkey-commits]

Index: mldonkey/src/networks/bittorrent/bTInteractive.ml
diff -u mldonkey/src/networks/bittorrent/bTInteractive.ml:1.59 
mldonkey/src/networks/bittorrent/bTInteractive.ml:1.60
--- mldonkey/src/networks/bittorrent/bTInteractive.ml:1.59      Thu Oct  6 
10:43:36 2005
+++ mldonkey/src/networks/bittorrent/bTInteractive.ml   Thu Oct  6 14:20:20 2005
@@ -245,7 +245,17 @@
           html_mods_td buf [
            ("Tracker key", "sr br", "Tracker key");
            ("", "sr", Printf.sprintf "%s" t.tracker_key) ]
-        end
+        end;
+      Printf.bprintf buf "\\</tr\\>\\<tr class=\\\"dl-%d\\\"\\>" 
(html_mods_cntr ());
+        html_mods_td buf [
+           ("Files:", "sr br", "Files:");
+           ("", "sr", "") ];
+      List.iter (fun (filename, size) ->
+          Printf.bprintf buf "\\</tr\\>\\<tr class=\\\"dl-%d\\\"\\>" 
(html_mods_cntr ());
+          html_mods_td buf [
+           ("", "sr br", "");
+           ("", "sr", (Printf.sprintf "%s (%Ld bytes)" filename size)) ])
+      file.file_files
 
 let op_file_print_sources_html file buf =