Index: openacs-4/packages/chat/lib/transcripts.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/lib/transcripts.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/chat/lib/transcripts.tcl	3 Dec 2018 16:45:56 -0000	1.7
+++ openacs-4/packages/chat/lib/transcripts.tcl	3 Sep 2024 15:37:36 -0000	1.8
@@ -1,7 +1,7 @@
 ad_include_contract {
     This include is the UI to display and manage chat room transcripts
 } {
-    room_id:naturalnum
+    room_id:object_type(chat_room)
 }
 
 set transcript_create_p [permission::permission_p -object_id $room_id -privilege chat_transcript_create]
@@ -15,20 +15,20 @@
     transcript_url
     delete_url
 } chat_transcripts list_transcripts {
-   select ct.transcript_id, ct.pretty_name, ao.creation_date
+    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 transcript_url [export_vars -base "transcript-edit" {room_id transcript_id}]
     set delete_url [export_vars -base "transcript-delete" {room_id transcript_id}]
 }
 
 set actions {}
 if {$transcript_create_p} {
     lappend actions \
-	[_ chat.Create_transcript] [export_vars -base "transcript-new" {room_id}] ""
+        [_ chat.Create_transcript] [export_vars -base "transcript-new" {room_id}] ""
 }
 
 list::create \
@@ -52,10 +52,16 @@
             html { align "center" }
             display_template {
                 <if @transcript_delete_p;literal@ true>
-                  <a href="@chat_transcripts.delete_url@">
-                    <img src="/shared/images/Delete16.gif" alt="#chat.Delete_transcript#">
-                  </a>
+                <a href="@chat_transcripts.delete_url@">
+                <adp:icon name="trash" title="#chat.Delete_transcript#">
+                </a>
                 </if>
             }
         }
     }
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: