Index: openacs-4/packages/xotcl-request-monitor/www/long-calls.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-request-monitor/www/long-calls.tcl,v
diff -u -N -r1.4.2.12 -r1.4.2.13
--- openacs-4/packages/xotcl-request-monitor/www/long-calls.tcl	27 Nov 2022 17:21:26 -0000	1.4.2.12
+++ openacs-4/packages/xotcl-request-monitor/www/long-calls.tcl	27 Nov 2022 18:50:07 -0000	1.4.2.13
@@ -112,7 +112,15 @@
 # in the loop.
 #
 set pools  [lmap p $inputPools {expr {$p eq "default" ? "" : $p}}]
+set now [clock seconds]
 
+template::head::add_style -style {
+    .daydiff {
+        font-size: 6pt;
+        vertical-align: super;
+    }
+}
+
 set rows ""
 foreach line $logLines {
     if {$line eq ""} continue
@@ -179,9 +187,13 @@
     set request [::xo::regsub_eval {user_id=([0-9]+)} $request {::xo::subst_user_link user_id= \1} user_id=]
     #ns_log notice "start $start [string length $start] end $end [string length $end]"
     if {$by_starttime} {
-        set time $start
+        set daydiff [expr {[clock format $start_secs -format %J] - [clock format $now -format %J]}]
+        set prefix [expr {$daydiff == 0 ? "" : "<span class='daydiff'>${daydiff}d </span>"}]
+        set time $prefix$start
     } else {
-        set time $end
+        set daydiff [expr {[clock format $end_secs -format %J] - [clock format $now -format %J]}]
+        set prefix [expr {$daydiff == 0 ? "" : "<span class='daydiff'>${daydiff}d </span>"}]
+        set time $prefix$end
     }
     set row [subst {<tr class=''>
         <td class='text-right text-end $color(totaltime)' style='white-space: nowrap;'><span class='info' title='$request_time_title'>$time</span></td>