Index: openacs-4/packages/xowiki/tcl/includelet-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/includelet-procs.tcl,v diff -u -N -r1.235 -r1.236 --- openacs-4/packages/xowiki/tcl/includelet-procs.tcl 21 Nov 2018 12:32:18 -0000 1.235 +++ openacs-4/packages/xowiki/tcl/includelet-procs.tcl 22 Nov 2018 09:08:33 -0000 1.236 @@ -4665,6 +4665,9 @@ {-chat_id ""} {-mode ""} {-path ""} + -login_messages_p + -logout_messages_p + -timewindow }} } chat instproc render {} { @@ -4673,10 +4676,21 @@ # make the chat just for including page set chat_id [${:__including_page} item_id] } - set r [::xowiki::Chat login \ - -chat_id $chat_id \ - -mode $mode \ - -path $path] + set chat_cmd [list \ + ::xowiki::Chat login \ + -chat_id $chat_id \ + -mode $mode \ + -path $path] + # We don't want to override Chat class default with our own and + # therefore we build the command dynamically depending if these + # variables are there or not. + set optional_vars [list login_messages_p logout_messages_p timewindow] + foreach var $optional_vars { + if {[info exists $var]} { + lappend chat_cmd -${var} [set $var] + } + } + set r [{*}$chat_cmd] #ns_log notice chat=>$r