Index: openacs-4/packages/chat/www/room-delete-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/room-delete-2.tcl,v
diff -u -r1.8.2.3 -r1.8.2.4
--- openacs-4/packages/chat/www/room-delete-2.tcl	29 Dec 2021 17:12:54 -0000	1.8.2.3
+++ openacs-4/packages/chat/www/room-delete-2.tcl	15 Jul 2022 13:35:12 -0000	1.8.2.4
@@ -6,27 +6,13 @@
     @creation-date November 16, 2000
     @cvs-id $Id$
 } {
-    room_id:naturalnum,notnull
-} -validate {
-    id_is_a_room -requires room_id {
-        if {![::xo::dc 0or1row -prepare integer check_id {
-            select 1 from chat_rooms where room_id = :room_id
-        }]} {
-            ad_complain [_ chat.Room_not_found]
-        }
-    }
+    room_id:object_type(chat_room)
 }
 
-
 permission::require_permission -object_id $room_id -privilege chat_room_delete
 
-if { [catch {
-    set r [::xo::db::Class get_instance_from_db -id $room_id]
-    $r delete
-} errmsg] } {
-    ad_return_complaint 1 "[_ chat.Delete_room_failed]: $errmsg"
-    ad_script_abort
-}
+set r [::xo::db::Class get_instance_from_db -id $room_id]
+$r delete
 
 ad_returnredirect .