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.1.2.2 -r1.1.2.3 --- openacs-4/packages/chat/tcl/chat-ajax-procs.tcl 31 Mar 2006 12:52:48 -0000 1.1.2.2 +++ openacs-4/packages/chat/tcl/chat-ajax-procs.tcl 31 Mar 2006 15:42:52 -0000 1.1.2.3 @@ -16,15 +16,15 @@ if {![info exists chat_id]} {set chat_id $package_id } set context id=$chat_id&s=[ad_conn session_id].[clock seconds] - set path packages/chat/www/ajax/chat.js - if { ![file exists [acs_root_dir]/$path] } { - return -code error "File [acs_root_dir]/$path does not exist" + set jspath packages/chat/www/ajax/chat.js + if { ![file exists [acs_root_dir]/$jspath] } { + return -code error "File [acs_root_dir]/$jspath does not exist" } - set file [open [acs_root_dir]/$path]; set js [read $file]; close $file + 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 ${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 return "\