Index: openacs-4/packages/chat/www/chat.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/chat.tcl,v
diff -u -r1.5.2.1 -r1.5.2.2
--- openacs-4/packages/chat/www/chat.tcl	30 Mar 2006 09:15:12 -0000	1.5.2.1
+++ openacs-4/packages/chat/www/chat.tcl	31 Mar 2006 15:42:53 -0000	1.5.2.2
@@ -7,9 +7,9 @@
     @creation-date November 22, 2000
     @cvs-id $Id$
 } {
-    room_id
-    client
-    {message:html ""}
+  room_id
+  {client "ajax"}
+  {message:html ""}
 } -properties {
     context_bar:onevalue
     user_id:onevalue
@@ -30,10 +30,11 @@
 }
 
 set context_bar $room_name
+auth::require_login
 set user_id [ad_conn user_id]
-set read_p [permission::permission_p -object_id $room_id -privilege "chat_read"]
+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"]
+set ban_p   [permission::permission_p -object_id $room_id -privilege "chat_ban"]
 set moderate_room_p [chat_room_moderate_p $room_id]
 
 if { $moderate_room_p == "t" } {