Index: openacs-4/packages/chat/www/ajax/chat.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/ajax/Attic/chat.tcl,v diff -u -N -r1.1.2.7 -r1.1.2.8 --- openacs-4/packages/chat/www/ajax/chat.tcl 13 Jun 2006 00:32:45 -0000 1.1.2.7 +++ openacs-4/packages/chat/www/ajax/chat.tcl 20 Jun 2006 00:28:20 -0000 1.1.2.8 @@ -11,6 +11,14 @@ {msg:optional,allhtml ""} } +set ban_p [permission::permission_p -object_id $id -privilege "chat_ban"] +if {$ban_p} { + ns_return 200 text/html "\ +

[_ chat.You_dont_have_permission_room]

\ + " + ad_script_abort +} + set message_output "" set user_output "-"