Index: openacs-4/packages/lorsm/tcl/lorsm-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/tcl/lorsm-procs.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/lorsm/tcl/lorsm-procs.tcl 4 Sep 2004 14:51:20 -0000 1.3 +++ openacs-4/packages/lorsm/tcl/lorsm-procs.tcl 3 Dec 2004 17:52:49 -0000 1.4 @@ -154,16 +154,18 @@ set difference [expr {$end - $start}] if {$difference >= 0 && $difference < 60} { - return "$difference seconds" + return "[_ lorsm.difference_seconds]" } elseif {$difference >= 60 && $difference < 3600} { + set tempval [expr {$difference / 60.0}] + return "[_ lorsm.tempval_minutes]" - return "[expr {$difference / 60.0}] minutes" - } elseif {$difference >= 3600 && $difference < 86400} { - return "[expr {$difference / 60.0 /60.0 }] hours" + set tempval [expr {$difference / 60.0 /60.0 }] + return "[_ lorsm.tempval_hours]" } else { - return "[expr {$difference / 60.0 / 60.0 / 24.0}] days" + set tempval [expr {$difference / 60.0 / 60.0 / 24.0}] + return "[_ lorsm.tempval_days]" } }