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.4.8.4 -r1.4.8.5
--- openacs-4/packages/chat/lib/current-messages.tcl	9 Feb 2020 15:30:16 -0000	1.4.8.4
+++ openacs-4/packages/chat/lib/current-messages.tcl	17 Mar 2020 14:06:38 -0000	1.4.8.5
@@ -4,20 +4,10 @@
     room_id:naturalnum
 }
 
-set sql {
-    select to_char(creation_date, 'DD.MM.YYYY hh24:mi:ss') as creation_date, creation_user, msg 
-    from chat_msgs 
-    where room_id  = :room_id 
-    order by creation_date
-}
+set r [::xo::db::Class get_instance_from_db -id $room_id]
+set messages [$r transcript_messages]
+set n_messages [llength $messages]
 
-db_multirow -extend { person_name } messages select_msg_items $sql {
-    set person_name [::chat::Package get_user_name -user_id $creation_user]
-    if {$person_name eq ""} {
-        set person_name "Unknown"
-    }
-}
-
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4