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 -N -r1.54.2.18 -r1.54.2.19 --- openacs-4/packages/xowiki/tcl/chat-procs.tcl 14 Aug 2020 19:12:28 -0000 1.54.2.18 +++ openacs-4/packages/xowiki/tcl/chat-procs.tcl 9 Sep 2020 10:22:57 -0000 1.54.2.19 @@ -581,49 +581,36 @@ -conf $conf #:log "--CHAT created c1 with mode=$mode" + set js "" set data [c1 login] if {$data ne ""} { - append html [subst { - + append js [subst { + var data = $data; + for (var i = 0; i < data.length; i++) { + renderData(data\[i\]); + } }] } if {$fs_link_p} { - append html [subst { - - }] + append js {addFullScreenLink();} } - append html [subst { - - }] + append js {addSendPic();} #:log "--CHAT create HTML for mode=$mode" switch -- $mode { "polling" { - append html [subst { - + append js [subst { + chatSubscribe('$subscribe_url'); }] set send_msg_handler pollingSendMsgHandler } "streaming" { - append html [subst { - + append js [subst { + chatSubscribe('$subscribe_url'); }] set send_msg_handler streamingSendMsgHandler } @@ -637,6 +624,11 @@ set send_msg_handler scriptedStreamingSendMsgHandler } } + append html [subst { + + }] template::add_refresh_on_history_handler