[Mldonkey-commits] Changes to mldonkey/src/daemon/common/commonInteractive.ml

[mldonkey-commits]

Index: mldonkey/src/daemon/common/commonInteractive.ml
diff -u mldonkey/src/daemon/common/commonInteractive.ml:1.45 
mldonkey/src/daemon/common/commonInteractive.ml:1.46
--- mldonkey/src/daemon/common/commonInteractive.ml:1.45        Mon Aug 15 
20:27:56 2005
+++ mldonkey/src/daemon/common/commonInteractive.ml     Fri Aug 26 21:10:43 2005
@@ -195,19 +195,6 @@
   with e ->
       lprintf_nl "[cInt] Exception in file_cancel: %s" (Printexc2.to_string e)
 
-let time_to_string time =
-  let days = time / 60 / 60 / 24 in
-  let rest = time - days * 60 * 60 * 24 in
-  let hours = rest / 60 / 60 in
-  let rest = rest - hours * 60 * 60 in
-  let minutes = rest / 60 in
-  let seconds = rest - minutes * 60 in
-    if days > 0
-    then Printf.sprintf " %dd " days
-    else if hours > 0
-    then Printf.sprintf " %dh %dm " hours minutes
-    else Printf.sprintf " %dm " minutes
-
 let mail_for_completed_file file =
   if !!mail <> "" then
     let module M = Mailer in
@@ -218,7 +205,7 @@
       (file_best_name file)
       (file_size file)
       (string_of_uids info.G.file_uids)
-      (let age = (BasicSocket.last_time ()) - info.G.file_age in 
time_to_string age)
+      (let age = (BasicSocket.last_time ()) - info.G.file_age in 
Date.time_to_string_long age)
     in
 
     let line3 = if (file_comment file) <> "" then