Index: openacs-4/packages/xotcl-request-monitor/www/running.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-request-monitor/www/running.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/xotcl-request-monitor/www/running.tcl	17 Aug 2006 01:32:27 -0000	1.3
+++ openacs-4/packages/xotcl-request-monitor/www/running.tcl	12 Sep 2008 20:12:08 -0000	1.4
@@ -41,11 +41,11 @@
 foreach {key elapsed} $running_requests {
   foreach {requestor url} [split $key ,] break
   set ms [format %.2f [expr {[throttle ms -start_time $elapsed]/1000.0}]]
-  if {[string first . $requestor] > 0} {
-    set user_string $requestor 
-  } else {
+  if {[string is integer $requestor]} {
     acs_user::get -user_id $requestor -array user
-    set user_string "$user(first_names) $user(last_name) - $elapsed ms=$ms"
+    set user_string "$user(first_names) $user(last_name)"
+  } else {
+    set user_string $requestor
   }
   set user_url "last-requests?request_key=$requestor"
   lappend sortable_requests [list $user_string $user_url $url $ms ""]
@@ -54,11 +54,11 @@
   foreach {key elapsed} $entry break
   foreach {requestor url} [split $key ,] break
   set ms [format %.2f [expr {[throttle ms -start_time $elapsed]/1000.0}]]
-  if {[string first . $requestor] > 0} {
-    set user_string $requestor 
-  } else {
+  if {[string is integer $requestor]} {
     acs_user::get -user_id $requestor -array user
     set user_string "$user(first_names) $user(last_name)"
+  } else {
+    set user_string $requestor
   }
   set user_url "last-requests?request_key=$requestor"
   lappend sortable_requests [list $user_string $user_url $url -$ms "background"]