Index: openacs-4/packages/chat/www/message-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/message-delete.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/chat/www/message-delete.tcl	18 Jan 2019 17:14:36 -0000	1.9
+++ openacs-4/packages/chat/www/message-delete.tcl	3 Sep 2024 15:37:36 -0000	1.10
@@ -6,7 +6,7 @@
     @creation-date January 18, 2001
     @cvs-id $Id$
 } {
-    room_id:notnull,naturalnum
+    room_id:object_type(chat_room)
 } -properties {
     room_id:onevalue
     pretty_name:onevalue
@@ -18,9 +18,10 @@
 
 set context_bar [list [list "room?room_id=$room_id" "[_ chat.Room_Information]"] "[_ chat.Delete_messages]"]
 
-set pretty_name [chat_room_name $room_id]
+set r [::xo::db::Class get_instance_from_db -id $room_id]
+set pretty_name [$r set pretty_name]
 
-set message_count [chat_message_count $room_id]
+set message_count [$r count_messages]
 
 ad_return_template