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 "\
       <script type='text/javascript' language='javascript'>
       $js
@@ -41,7 +41,7 @@
           style='width:25%; border:1px solid black; padding:2px;' height='250'></iframe>
       <div style='margin-top:10px;'>
       #chat.message# <input type='text' size='80' name='msg' id='chatMsg'>
-      <input type=submit value='#chat.Send_Refresh#'>
+      <input type='submit' value='#chat.Send_Refresh#'>
       </div>
       </form> 
     "