Index: openacs-4/packages/acs-content-repository/tcl/revision-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/revision-procs.tcl,v diff -u -r1.7 -r1.7.2.1 --- openacs-4/packages/acs-content-repository/tcl/revision-procs.tcl 14 Jun 2002 18:23:46 -0000 1.7 +++ openacs-4/packages/acs-content-repository/tcl/revision-procs.tcl 6 Dec 2002 12:29:14 -0000 1.7.2.1 @@ -67,17 +67,19 @@ ad_return -code error "Storage type '$storage_type' is invalid." } - ReturnHeaders $mime_type switch $storage_type { text { + ReturnHeaders $mime_type ns_write [db_string write_text_content ""] } file { set path [cr_fs_path $storage_area_key] - db_write_blob write_file_content "" + set filename [db_string write_file_content ""] + ns_returnfile 200 $mime_type $filename } lob { + ReturnHeaders $mime_type db_write_blob write_lob_content "" } }