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 -r1.2 -r1.3
--- openacs-4/packages/chat/www/room-enter.tcl	18 Sep 2002 13:03:47 -0000	1.2
+++ openacs-4/packages/chat/www/room-enter.tcl	14 Mar 2006 12:16:09 -0000	1.3
@@ -13,17 +13,21 @@
 chat_start_server
 set user_id [ad_conn user_id]
 
-set read_p [ad_permission_p $room_id "chat_read"]
+set read_p  [ad_permission_p $room_id "chat_read"]
 set write_p [ad_permission_p $room_id "chat_write"]
-set ban_p [ad_permission_p $room_id "chat_ban"]
+set ban_p   [ad_permission_p $room_id "chat_ban"]
+set active  [room_active_status $room_id]
 
-if { ($read_p == "0" && $write_p == "0") || ($ban_p == "1") } {
+
+if { ($read_p == "0" && $write_p == "0") || ($ban_p == "1") || ($active == "f") } {
     #Display unauthorize privilege page.
     ad_returnredirect unauthorized
     ad_script_abort
 }
 if {$client == "html"} {
-    chat_message_post $room_id $user_id "has entered the room." "1"
+
+
+    chat_message_post $room_id $user_id "[_ chat.has_entered_the_room]." "1"
 }
 
 ad_returnredirect "chat?room_id=$room_id&client=$client"