Index: openacs-4/packages/chat/www/chat.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/chat.tcl,v
diff -u -N -r1.20.2.9 -r1.20.2.10
--- openacs-4/packages/chat/www/chat.tcl	17 May 2023 09:09:21 -0000	1.20.2.9
+++ openacs-4/packages/chat/www/chat.tcl	3 Nov 2023 15:13:29 -0000	1.20.2.10
@@ -19,23 +19,6 @@
 set doc(title) [$r set pretty_name]
 set context [list $doc(title)]
 
-set read_p  [permission::permission_p -object_id $room_id -privilege "chat_read"]
-set write_p [permission::permission_p -object_id $room_id -privilege "chat_write"]
-set ban_p   [permission::permission_p -object_id $room_id -privilege "chat_ban"]
-
-if { (!$read_p && !$write_p) || $ban_p || ![$r set active_p] } {
-    #
-    # You won't be able to chat if:
-    # - you cannot read nor write in the room
-    # - you were banned
-    # - the chat is not active
-    #
-    ad_returnredirect unauthorized
-    ad_script_abort
-}
-
-set chat_frame [::chat::Chat login -chat_id $room_id]
-
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4