Index: openacs-4/packages/chat/www/room-enter.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/room-enter.tcl,v
diff -u -N -r1.13.2.2 -r1.13.2.3
--- openacs-4/packages/chat/www/room-enter.tcl	20 Mar 2020 10:52:06 -0000	1.13.2.2
+++ openacs-4/packages/chat/www/room-enter.tcl	15 Jul 2022 13:35:12 -0000	1.13.2.3
@@ -1,13 +1,13 @@
 #/chat/www/room-enter.tcl
 ad_page_contract {
 
-    Perform initialize before chat "Need to change this comment"
+    Perform initialization before starting a chat
 
     @author David Dao (ddao@arsdigita.com)
     @creation-date November 22, 2000
     @cvs-id $Id$
 } {
-    room_id:naturalnum,notnull
+    room_id:object_type(chat_room)
 }
 
 set user_id [ad_conn user_id]
@@ -17,15 +17,9 @@
 set ban_p   [permission::permission_p -object_id $room_id -privilege "chat_ban"]
 ns_log notice "--query ban $ban_p: permission::permission_p -object_id $room_id -privilege chat_ban -party_id [ad_conn user_id]"
 
-if { [catch {
-    set r [::xo::db::Class get_instance_from_db -id $room_id]
-} errmsg] } {
-    ad_return_error [_ chat.Room_not_found] [_ chat.Room_not_found]
-    ad_log Warning "Chat room not found. Invalid room_id: $room_id"
-    ad_script_abort
-}
+set r [::xo::db::Class get_instance_from_db -id $room_id]
 
-set active  [$r set active_p]
+set active [$r set active_p]
 
 if { ($read_p == 0 && $write_p == 0) || ($ban_p == 1) || ($active == "f") } {
     #Display unauthorize privilege page.