Index: openacs-4/packages/chat/www/transcript-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/transcript-delete.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/chat/www/transcript-delete.tcl	18 Jan 2019 17:14:36 -0000	1.9
+++ openacs-4/packages/chat/www/transcript-delete.tcl	3 Sep 2024 15:37:36 -0000	1.10
@@ -6,8 +6,8 @@
     @creation-date November 28, 2000
     @cvs-id $Id$
 } {
-    room_id:naturalnum,notnull
-    transcript_id:naturalnum,notnull
+    room_id:object_type(chat_room)
+    transcript_id:object_type(chat_transcript)
 } -properties {
     context_bar:onevalue
     room_id:onevalue
@@ -16,10 +16,8 @@
 
 permission::require_permission -object_id $transcript_id -privilege chat_transcript_delete
 
-set transcript_name [db_string query {
-    select pretty_name from chat_transcripts
-    where transcript_id = :transcript_id
-}]
+set t [::xo::db::Class get_instance_from_db -id $transcript_id]
+set transcript_name [$t set pretty_name]
 
 set context [list "[_ chat.Delete_transcript]"]
 ad_return_template