Index: openacs-4/packages/chat/www/transcript-delete-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/transcript-delete-2.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/chat/www/transcript-delete-2.tcl	18 Jan 2019 17:14:36 -0000	1.7
+++ openacs-4/packages/chat/www/transcript-delete-2.tcl	3 Sep 2024 15:37:36 -0000	1.8
@@ -2,17 +2,14 @@
 ad_page_contract {
     Delete chat transcript.
 } {
-    room_id:naturalnum,notnull
-    transcript_id:naturalnum,notnull
-
+    room_id:object_type(chat_room)
+    transcript_id:object_type(chat_transcript)
 }
 
 permission::require_permission -object_id $transcript_id -privilege chat_transcript_delete
 
-if { [catch {chat_transcript_delete $transcript_id} errmsg] } {
-    ad_return_complaint 1 "[_ chat.Delete_transcript_failed]: $errmsg"
-    ad_script_abort
-}
+set t [::xo::db::Class get_instance_from_db -id $transcript_id]
+$t delete
 
 ad_returnredirect "room?room_id=$room_id"