Index: openacs-4/packages/chat/lib/current-messages.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/lib/current-messages.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/chat/lib/current-messages.tcl	7 Jun 2007 09:14:24 -0000	1.3
+++ openacs-4/packages/chat/lib/current-messages.tcl	19 Nov 2007 01:14:15 -0000	1.4
@@ -7,25 +7,7 @@
 }
 
 db_multirow -extend { person_name } messages select_msg_itens $sql {
-    db_1row room_info2 {
-    		select count(r.alias)
-    		from chat_registered_users r
-    		where r.user_id = :creation_user
-    		and r.room_id = :room_id
+    if { [catch { set person_name [chat_user_name $creation_user] }] } {
+        set person_name "Unknown"
     }
-    if { $count > 0} {
-	db_1row room_info2 {
-		select r.alias
-		from chat_registered_users r
-    		where r.user_id = :creation_user
-    		and r.room_id = :room_id
-	}
-        if { [catch { set person_name [chat_user_name2 $creation_user $alias] }] } {
-        	set person_name "System"
-    	}
-    } else {
-    	if { [catch { set person_name [chat_user_name $creation_user] }] } {
-        	set person_name "System"
-    	}
-    }
 }