[Mldonkey-commits] Changes to mldonkey/src/daemon/driver/driverControlers.ml

[mldonkey-commits]

Index: mldonkey/src/daemon/driver/driverControlers.ml
diff -u mldonkey/src/daemon/driver/driverControlers.ml:1.47 
mldonkey/src/daemon/driver/driverControlers.ml:1.48
--- mldonkey/src/daemon/driver/driverControlers.ml:1.47 Thu Oct  6 10:21:07 2005
+++ mldonkey/src/daemon/driver/driverControlers.ml      Sun Oct 16 20:42:50 2005
@@ -965,8 +965,16 @@
               Printf.bprintf buf "<p align=\"left\"><small>";
               let mfiles = List2.tail_map file_info !!files in
               List.iter (fun file ->
-                  Printf.bprintf buf  "<a href=\"wap.wml?%s=%d\">%s</a> <a 
href=\"wap.wml?VDC=%d\">C</a> [%-5d] %5.1f %s %s/%s <br />" (if downloading 
file then "VDP" else "VDR" ) (file.file_num) (if downloading file then "P" else 
"R" ) (file.file_num) (file.file_num) (file.file_download_rate /. 
1024.)(short_name file) (print_human_readable file (Int64.sub file.file_size 
file.file_downloaded)) (print_human_readable file file.file_size);
-
+                  Printf.bprintf buf  "<a href=\"wap.wml?%s=%d\">%s</a> <a 
href=\"wap.wml?VDC=%d\">C</a> [%-5d] %5.1f %s %s/%s <br />" 
+                    (if downloading file then "VDP" else "VDR" ) 
+                    (file.file_num) 
+                    (if downloading file then "P" else "R" ) 
+                    (file.file_num) 
+                    (file.file_num) 
+                    (file.file_download_rate /. 1024.)
+                    (short_name file) 
+                    (print_human_readable file (file.file_size -- 
file.file_downloaded)) 
+                    (print_human_readable file file.file_size);
               ) mfiles;
               Printf.bprintf buf "<br />Downloaded %d/%d files " (List.length 
!!done_files) (List.length !!files);
               Printf.bprintf buf "</small></p>";