Index: openacs-4/packages/chat/www/ajax/users.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/ajax/Attic/users.tcl,v
diff -u -N -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/chat/www/ajax/users.tcl	30 Mar 2006 09:15:13 -0000	1.1.2.1
+++ openacs-4/packages/chat/www/ajax/users.tcl	31 Mar 2006 09:26:28 -0000	1.1.2.2
@@ -10,12 +10,14 @@
 }
 #after 1000
 ::chat::Chat c1 -volatile -chat_id $id -session_id $s
+
 if { $m eq "login" } { c1 encoder noencode }
 set output ""
 foreach {user_id timestamp} [c1 active_user_list] {
   if {$user_id > 0} {
-      set diff [clock format [expr {[clock seconds] - $timestamp}] -format "%H:%M:%S" -gmt 1]
-    append output "<TR><TD class='user'>[c1 user_link $user_id]</TD><TD class='timestamp'>$diff</TD></TR>\n"
+    set diff [clock format [expr {[clock seconds] - $timestamp}] -format "%H:%M:%S" -gmt 1]
+    set userlink  [c1 user_link -user_id $user_id]
+    append output "<TR><TD class='user'>$userlink</TD><TD class='timestamp'>$diff</TD></TR>\n"
   }
 }