Index: openacs-4/packages/xowiki/www/ajax/chat.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/ajax/Attic/chat.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/xowiki/www/ajax/chat.tcl 13 Sep 2012 16:05:34 -0000 1.7
+++ openacs-4/packages/xowiki/www/ajax/chat.tcl 29 Jul 2013 08:56:44 -0000 1.8
@@ -13,7 +13,7 @@
}
#ns_log notice "--chat m=$m session_id=$s [clock format [lindex [split $s .] 1] -format %H:%M:%S] mode=$mode"
-::xowiki::Chat c1 -volatile -chat_id $id -session_id $s -mode $mode
+::xowiki::Chat create c1 -destroy_on_cleanup -chat_id $id -session_id $s -mode $mode
switch -- $m {
add_msg {
#ns_log notice "--c call c1 $m '$msg'"
@@ -27,14 +27,25 @@
default {ns_log error "--c unknown method $m called."}
}
+#ns_log notice "--chat.tcl $m: returns '$_'"
+
+set style {
+ padding:1em 0 1em 1em;
+ background-color: #f9f9f9;
+ font-size:.95em;
+ color:#333;
+ overflow:auto;
+}
+
ns_return 200 text/html "
-
+$_
"