Index: openacs-4/packages/chat/www/room-exit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/room-exit.tcl,v
diff -u -N -r1.3 -r1.3.2.1
--- openacs-4/packages/chat/www/room-exit.tcl	14 Mar 2006 12:16:09 -0000	1.3
+++ openacs-4/packages/chat/www/room-exit.tcl	30 Mar 2006 09:15:12 -0000	1.3.2.1
@@ -10,12 +10,10 @@
 }
 
 set user_id [ad_conn user_id]
+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 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"]
-
 if { ($read_p == "0" && $write_p == "0") || ($ban_p == "1") } {
     #Display unauthorize privilege page.
     ad_returnredirect unauthorized
@@ -24,5 +22,12 @@
 
 chat_message_post $room_id $user_id "[_ chat.has_left_the_room]." "1"
 
-#ad_returnredirect index
-ad_returnredirect [dotlrn::get_url]
+# send to AJAX
+if { [llength [info command ::chat::Chat]] > 0 } {
+    set session_id [ad_conn session_id]
+    ::chat::Chat c1 -volatile -chat_id $room_id -session_id $session_id
+    c1 logout
+}
+
+ad_returnredirect index
+#ad_returnredirect [dotlrn::get_url]