Index: openacs-4/packages/chat/lib/transcripts.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/lib/transcripts.tcl,v
diff -u -N -r1.5 -r1.5.2.1
--- openacs-4/packages/chat/lib/transcripts.tcl	20 Jan 2018 22:56:50 -0000	1.5
+++ openacs-4/packages/chat/lib/transcripts.tcl	14 Feb 2019 16:15:01 -0000	1.5.2.1
@@ -1,3 +1,8 @@
+ad_include_contract {
+    This include is the UI to display and manage chat room transcripts
+} {
+    room_id:naturalnum
+}
 
 set transcript_create_p [permission::permission_p -object_id $room_id -privilege chat_transcript_create]
 set transcript_delete_p [permission::permission_p -object_id $room_id -privilege chat_transcript_delete]
@@ -9,7 +14,12 @@
     viewer
     transcript_url
     delete_url
-} chat_transcripts list_transcripts {} {
+} chat_transcripts list_transcripts {
+   select ct.transcript_id, ct.pretty_name, ao.creation_date
+    from chat_transcripts ct, acs_objects ao
+    where ct.transcript_id = ao.object_id and ct.room_id = :room_id
+    order by ao.creation_date desc
+} {
     set creation_date_pretty [lc_time_fmt $creation_date "%q %X"]
     set transcript_url [export_vars -base "chat-transcript" {room_id transcript_id}]
     set delete_url [export_vars -base "transcript-delete" {room_id transcript_id}]