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.12.2.5 -r1.12.2.6
--- openacs-4/packages/acs-content-repository/tcl/revision-procs.tcl	6 May 2004 21:25:33 -0000	1.12.2.5
+++ openacs-4/packages/acs-content-repository/tcl/revision-procs.tcl	26 May 2004 19:01:07 -0000	1.12.2.6
@@ -71,13 +71,21 @@
             set filename [db_string write_file_content ""]
             # JCD: for webdavfs there needs to be a content-length 0 header 
             # but ns_returnfile does not send one.  
-            set size [file size $filename]
-            if {!$size} { 
-                ns_set put [ns_conn outputheaders] "Content-Length" 0
-            }
-            ns_returnfile 200 $mime_type $filename
+	    if { $string_p } {
+		set fd [open $filename]
+		set text [read $fd]
+		close $fd
+		return $text
+	    } else {
+		set size [file size $filename]
+		if {!$size} { 
+		    ns_set put [ns_conn outputheaders] "Content-Length" 0
+		}
+		ns_returnfile 200 $mime_type $filename
+	    }
         }
         lob  {
+
             if { $string_p } {
                 return [db_blob_get write_lob_content ""]
             }
@@ -170,14 +178,12 @@
         set item_id [db_nextval acs_object_id_seq]
     }
 
-
     # use content_type of existing item
     if $old_item_p {
 	set content_type [db_string get_content_type ""]
     } else {
 	set content_type [cr_registered_type_for_mime_type $mime_type]
     }
-
     set revision_id [db_nextval acs_object_id_seq]
 
     db_transaction {