Index: openacs-4/packages/xotcl-core/xotcl-core.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/xotcl-core.info,v
diff -u -r1.20 -r1.21
--- openacs-4/packages/xotcl-core/xotcl-core.info	15 Sep 2006 16:33:05 -0000	1.20
+++ openacs-4/packages/xotcl-core/xotcl-core.info	2 Dec 2006 19:07:01 -0000	1.21
@@ -8,10 +8,10 @@
     <singleton-p>t</singleton-p>
     <auto-mount>xotcl</auto-mount>
 
-    <version name="0.44" url="http://media.wu-wien.ac.at/download/xotcl-core-0.44.apm">
+    <version name="0.45" url="http://media.wu-wien.ac.at/download/xotcl-core-0.45.apm">
         <owner url="mailto:neumann@wu-wien.ac.at">Gustaf Neumann</owner>
         <summary>XOTcl library functionality (e.g. thread handling, online documentation, Generic Form and List Classes)</summary>
-        <release-date>2006-09-15</release-date>
+        <release-date>2006-12-02</release-date>
         <description format="text/html">This component contains some core functionality for OACS
 applications using XOTcl. It includes
 XOTcl thread handling for OACS (supporting persistent and
@@ -26,7 +26,7 @@
         <license>BSD-Style</license>
         <maturity>0</maturity>
 
-        <provides url="xotcl-core" version="0.44"/>
+        <provides url="xotcl-core" version="0.45"/>
 
         <callbacks>
             <callback type="before-install"  proc="::xotcl::before_install_callback"/>
Index: openacs-4/packages/xotcl-core/tcl/bgdelivery-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/bgdelivery-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/xotcl-core/tcl/bgdelivery-procs.tcl	22 Nov 2006 15:11:45 -0000	1.5
+++ openacs-4/packages/xotcl-core/tcl/bgdelivery-procs.tcl	2 Dec 2006 19:07:01 -0000	1.6
@@ -14,6 +14,16 @@
 
 if {[catch {ns_conn contentsentlength}]} {
   ns_log notice "AOLserver is not patched for bgdelivery, NOT loading bgdelivery"
+
+  ad_proc -public ad_returnfile_background {statuscode mime_type filename} {
+    Deliver the given file to the requestor in the background. This proc uses the
+    background delivery thread to send the file in an event-driven manner without
+    blocking a request thread. This is especially important when large files are 
+    requested over slow (e.g. dial-ip) connections.
+  } {
+    ns_returnfile $statuscode $mime_type $filename
+  }
+  return
 }
 
 ::xotcl::THREAD create bgdelivery {
@@ -142,12 +152,7 @@
   blocking a request thread. This is especially important when large files are 
   requested over slow (e.g. dial-ip) connections.
 } {
-    if {[catch {ns_conn contentsentlength}]} {
-	ns_returnfile $statuscode $mime_type $filename
-    } else {    
-	bgdelivery returnfile $statuscode $mime_type $filename
-    }
-
+  bgdelivery returnfile $statuscode $mime_type $filename
 }
 
 #####################################
Index: openacs-4/packages/xotcl-core/tcl/chat-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/Attic/chat-procs.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/xotcl-core/tcl/chat-procs.tcl	9 Apr 2006 00:09:51 -0000	1.10
+++ openacs-4/packages/xotcl-core/tcl/chat-procs.tcl	2 Dec 2006 19:07:01 -0000	1.11
@@ -201,7 +201,7 @@
   
   Chat instproc user_link { -user_id -color } {
     if {$user_id > 0} {
-        set name [my user_name $user_id]
+      set name [my user_name $user_id]
       set url "/shared/community-member?user%5fid=$user_id"
       if {![info exists color]} {
 	set color [my user_color $user_id]