Index: openacs-4/packages/chat/tcl/chat-ajax-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/chat/tcl/chat-ajax-procs.tcl,v diff -u -r1.27 -r1.28 --- openacs-4/packages/chat/tcl/chat-ajax-procs.tcl 21 Nov 2018 09:56:37 -0000 1.27 +++ openacs-4/packages/chat/tcl/chat-ajax-procs.tcl 21 Nov 2018 12:32:18 -0000 1.28 @@ -37,14 +37,7 @@ return [_ chat.Room_not_found] } else { chat_room_get -room_id $chat_id -array c - next \ - -chat_id $chat_id \ - -package_id $c(context_id) \ - -mode $mode \ - -path $path \ - -login_messages_p $c(login_messages_p) \ - -logout_messages_p $c(logout_messages_p) \ - -timewindow $c(messages_time_window) + next -chat_id $chat_id -package_id $c(context_id) -mode $mode -path $path } } @@ -66,6 +59,12 @@ ad_return_forbidden ad_script_abort } + if {[chat_room_exists_p ${:chat_id}]} { + chat_room_get -room_id ${:chat_id} -array c + set :login_messages_p $c(login_messages_p) + set :logout_messages_p $c(logout_messages_p) + set :timewindow $c(messages_time_window) + } next }