Index: openacs-4/packages/chat/www/chat-transcripts.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/chat-transcripts.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/chat/www/chat-transcripts.tcl	24 Jun 2006 14:23:42 -0000	1.2
@@ -0,0 +1,16 @@
+ad_page_contract {
+
+    Show available chat transcripts
+
+    @author Peter Alberer (peter@alberer.com)
+    @creation-date March 26, 2006
+} {
+    room_id:integer,notnull
+} 
+
+if { [catch {set room_name [chat_room_name $room_id]} errmsg] } {
+    ad_return_complaint 1 "[_ chat.Room_not_found]"
+}
+
+set active [room_active_status $room_id]
+