Index: openacs-4/packages/xotcl-request-monitor/www/whos-online.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-request-monitor/www/whos-online.tcl,v
diff -u -r1.16.2.1 -r1.16.2.2
--- openacs-4/packages/xotcl-request-monitor/www/whos-online.tcl	25 Jan 2020 14:17:59 -0000	1.16.2.1
+++ openacs-4/packages/xotcl-request-monitor/www/whos-online.tcl	6 Apr 2020 17:16:59 -0000	1.16.2.2
@@ -63,15 +63,13 @@
 set users [list]
 foreach element [throttle users active -full] {
   lassign $element user_id pa timestamp hits smooth switches
-  if {[string is integer $user_id]} {
-    set person [person::get_person_info -person_id $user_id]
-    set user_label "[dict get $person last_name], [dict get $person first_names]"
-    set user_url [acs_community_member_url -user_id $user_id]
-  } else {
-    if {$all} continue
+
+  set user_info [xo::request_monitor_user_info $user_id]
+  set user_label [dict get $user_info label]
+  set user_url   [dict get $user_info url]
+  if {![string is integer $user_id] && !$all} {
     # it was an IP address
-    set user_label $user_id
-    set user_url ""
+    continue
   }
   set timestamp [lindex $smooth 2]
   set last_request_minutes [expr {[clock seconds]/60 - $timestamp}]