/[mldonkey]/mldonkey/src/gtk/newgui/gui_downloads.ml
ViewVC logotype

Diff of /mldonkey/src/gtk/newgui/gui_downloads.ml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.13 by mldonkey, Thu Jul 29 10:25:33 2004 UTC revision 1.14 by spiralvoice, Fri Aug 26 21:10:43 2005 UTC
# Line 314  let max_last_seen = 100 * 24 * 3600 Line 314  let max_last_seen = 100 * 24 * 3600
314  let time_to_string time =  let time_to_string time =
315    if time = max_last_seen    if time = max_last_seen
316      then "--"      then "--"
317      else begin      else Date.time_to_string_long 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 " %d:%02d:%02d " hours minutes seconds  
     else Printf.sprintf " %d:%02d " minutes seconds  
     end  
318    
319  let max_eta = 1000.0 *. 60.0 *. 60.0 *. 24.0  let max_eta = 1000.0 *. 60.0 *. 60.0 *. 24.0
320            

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26