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
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/chat/lib/current-messages.tcl	30 Mar 2006 09:15:12 -0000	1.1.2.1
@@ -0,0 +1,11 @@
+
+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
+}
+
+db_multirow -extend { person_name } messages select_msg_itens $sql {
+    set person_name [chat_user_name $creation_user]
+}