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.3 -r1.5.2.4
--- openacs-4/packages/chat/www/chat.tcl	7 Apr 2006 16:59:52 -0000	1.5.2.3
+++ openacs-4/packages/chat/www/chat.tcl	11 Apr 2006 11:29:46 -0000	1.5.2.4
@@ -7,9 +7,9 @@
     @creation-date November 22, 2000
     @cvs-id $Id$
 } {
-  room_id
+    room_id
   {client "ajax"}
-  {message:html ""}
+    {message:html ""}
 } -properties {
     context_bar:onevalue
     user_id:onevalue
@@ -32,9 +32,9 @@
 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" } {
@@ -63,7 +63,7 @@
     "html" {
         set template_use "html-chat"
         # forward to ajax if necessary
-        if { ![empty_string_p $message] && [llength [info command ::chat::Chat]] > 0 } {
+        if { ![empty_string_p $message] } {
             set session_id [ad_conn session_id]
             ::chat::Chat c1 -volatile -chat_id $room_id -session_id $session_id
             c1 add_msg $message