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.30 -r1.54.2.31
--- openacs-4/packages/xowiki/tcl/chat-procs.tcl 13 Sep 2023 22:26:36 -0000 1.54.2.30
+++ openacs-4/packages/xowiki/tcl/chat-procs.tcl 3 Nov 2023 17:52:15 -0000 1.54.2.31
@@ -686,7 +686,7 @@
#:log "--CHAT created c1 with mode=$mode"
append html [subst {
- [c1 set user_id]
+ [c1 set user_id]
}]
set js ""
@@ -732,12 +732,9 @@
set send_msg_handler scriptedStreamingSendMsgHandler
}
}
- append html [subst {
-
- }]
+ template::add_body_handler -event load -script $js
+
template::add_refresh_on_history_handler
template::add_event_listener \