Index: openacs-4/packages/xowiki/tcl/chat-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/chat-procs.tcl,v diff -u -r1.54.2.24 -r1.54.2.25 --- openacs-4/packages/xowiki/tcl/chat-procs.tcl 5 Dec 2021 17:11:45 -0000 1.54.2.24 +++ openacs-4/packages/xowiki/tcl/chat-procs.tcl 11 Jan 2022 15:52:52 -0000 1.54.2.25 @@ -52,7 +52,7 @@ # # The basic nsv (typically ::chat::Chat) is hit quite frequently # on busy sites. So reduce these these hits. - + # Something to consider: We could/should do this actually in an # init-script. The only advantage by this construct is to start # the scheduled proc only when a chat is started. @@ -79,9 +79,14 @@ } Chat instproc set_options {} { - dict for {key value} ${:conf} { + # Any supplied conf we are going to save and apply to any other + # instance of this chat created in the future. + if {[llength ${:conf}] > 0} { + ::acs::clusterwide nsv_array set ${:array}-conf ${:conf} + } + dict for {key value} [nsv_array get ${:array}-conf] { ::acs::clusterwide nsv_set ${:array}-options $key $value - set :$key $value + set :$key $value } }