Index: openacs-4/packages/chat/tcl/chat-ajax-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/chat/tcl/chat-ajax-procs.tcl,v diff -u -r1.10 -r1.10.2.1 --- openacs-4/packages/chat/tcl/chat-ajax-procs.tcl 13 Jul 2009 17:01:18 -0000 1.10 +++ openacs-4/packages/chat/tcl/chat-ajax-procs.tcl 15 Jan 2010 10:52:32 -0000 1.10.2.1 @@ -36,7 +36,7 @@ set chat_id $package_id } - set context "id=$chat_id&s=[ad_conn session_id].[clock seconds]" + set context "id=$chat_id&s=[ad_conn session_id].[clock seconds]" set jspath "packages/chat/www/ajax/chat.js" if { ![file exists [acs_root_dir]/$jspath] } { @@ -45,18 +45,18 @@ set file [open [acs_root_dir]/$jspath]; set js [read $file]; close $file set path [site_node::get_url_from_object_id -object_id $package_id] - set login_url "${path}ajax/chat?m=login&$context" - set send_url "${path}ajax/chat?m=add_msg&$context&msg=" - set users_url "${path}ajax/chat?m=get_users&$context" + set login_url [ad_quotehtml "${path}ajax/chat?m=login&$context"] + set send_url [ad_quotehtml "${path}ajax/chat?m=add_msg&$context&msg="] + set users_url [ad_quotehtml "${path}ajax/chat?m=get_users&$context"] set html_url [ad_quotehtml [ad_conn url]?[ad_conn query]] regsub {client=ajax} $html_url {client=html} html_url return "\