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 @@ t xotcl - + Gustaf Neumann XOTcl library functionality (e.g. thread handling, online documentation, Generic Form and List Classes) - 2006-09-15 + 2006-12-02 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 @@ BSD-Style 0 - + 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]