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 -N -r1.12.2.3 -r1.12.2.4 --- openacs-4/packages/chat/tcl/chat-ajax-procs.tcl 22 Nov 2016 18:34:35 -0000 1.12.2.3 +++ openacs-4/packages/chat/tcl/chat-ajax-procs.tcl 23 Nov 2016 13:50:51 -0000 1.12.2.4 @@ -14,8 +14,8 @@ :instvar chat_id 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 :login_messages_p $c(login_messages_p) + set :logout_messages_p $c(logout_messages_p) } next } @@ -104,7 +104,7 @@ # the user of being looking at an invalid chat Chat instproc check_valid_room {} { if {![chat_room_exists_p [:chat_id]]} { - ns_return 500 text/plain [_ chat.Room_not_found] + ns_return 500 text/plain "chat-errmsg: [_ chat.Room_not_found]" ad_script_abort } } Index: openacs-4/packages/chat/www/room.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/room.tcl,v diff -u -N -r1.8.4.3 -r1.8.4.4 --- openacs-4/packages/chat/www/room.tcl 22 Nov 2016 18:34:35 -0000 1.8.4.3 +++ openacs-4/packages/chat/www/room.tcl 23 Nov 2016 13:50:51 -0000 1.8.4.4 @@ -73,7 +73,7 @@ login_messages_p logout_messages_p } { - set $property [expr {[set $property] eq t?"[_ acs-kernel.common_yes]":"[_ acs-kernel.common_no]"}] + set $property [expr {[set $property] eq "t" ? [_ acs-kernel.common_yes] : [_ acs-kernel.common_no] }] } # get db-message count