Index: openacs-4/packages/chat/www/html-chat.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/Attic/html-chat.tcl,v
diff -u -r1.1.2.3 -r1.1.2.4
--- openacs-4/packages/chat/www/html-chat.tcl 10 Apr 2006 11:43:10 -0000 1.1.2.3
+++ openacs-4/packages/chat/www/html-chat.tcl 11 Apr 2006 11:29:46 -0000 1.1.2.4
@@ -27,18 +27,8 @@
ad_return_complaint 1 "[_ chat.Room_not_found]"
}
-template::list::create -name chat_msg \
- -multirow chat_msg_query \
- -no_data "[_ chat.no_messages]" \
- -page_flush_p 1 \
- -elements {
- creation_date_pretty { label "[_ chat.date]" }
- person_name { label "[_ acs-kernel.User]" }
- msg { label "[_ chat.msg]" }
- }
-
-db_multirow -extend { person_name } chat_msg_query select_msg_items {} {
- set person_name [person::name -person_id $creation_user]
-}
+::chat::Chat c1 -volatile -encoder noencode -chat_id $room_id
+set html_chat [c1 get_all]
+set html_users [c1 get_users]
ad_return_template
\ No newline at end of file