Index: openacs-4/packages/chat/www/room-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/room-delete.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/chat/www/room-delete.tcl	18 Jan 2019 17:14:36 -0000	1.9
+++ openacs-4/packages/chat/www/room-delete.tcl	3 Sep 2024 15:37:36 -0000	1.10
@@ -6,7 +6,7 @@
     @creation-date November 15, 2000
     @cvs-id $Id$
 } {
-    room_id:notnull,naturalnum
+    room_id:object_type(chat_room)
 } -properties {
     room_id:onevalue
     pretty_name:onevalue
@@ -17,7 +17,8 @@
 
 set context_bar [list [list "room?room_id=$room_id" "[_ chat.Room_Information]"] "[_ chat.Delete_room]"]
 
-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]
 
 ad_return_template