Index: openacs-4/packages/acs-content-repository/tcl/revision-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/revision-procs-oracle.xql,v
diff -u -r1.8 -r1.8.2.1
--- openacs-4/packages/acs-content-repository/tcl/revision-procs-oracle.xql	4 Mar 2004 14:52:37 -0000	1.8
+++ openacs-4/packages/acs-content-repository/tcl/revision-procs-oracle.xql	1 Apr 2004 01:20:56 -0000	1.8.2.1
@@ -4,7 +4,8 @@
 
 <fullquery name="cr_write_content.get_item_info">
       <querytext>
-          select r.mime_type, i.storage_type, i.storage_area_key, r.revision_id
+          select r.mime_type, i.storage_type, i.storage_area_key,
+            r.revision_id, r.content_length
             from cr_revisions r, cr_items i
           where i.item_id = r.item_id and
               r.revision_id = content_item.get_live_revision(:item_id)
Index: openacs-4/packages/acs-content-repository/tcl/revision-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/revision-procs-postgresql.xql,v
diff -u -r1.8 -r1.8.2.1
--- openacs-4/packages/acs-content-repository/tcl/revision-procs-postgresql.xql	4 Mar 2004 14:52:37 -0000	1.8
+++ openacs-4/packages/acs-content-repository/tcl/revision-procs-postgresql.xql	1 Apr 2004 01:20:56 -0000	1.8.2.1
@@ -4,7 +4,8 @@
 
 <fullquery name="cr_write_content.get_item_info">
       <querytext>
-          select i.storage_type, i.storage_area_key, r.mime_type, r.revision_id
+          select i.storage_type, i.storage_area_key, r.mime_type,
+          r.revision_id, r.content_length
           from cr_items i, cr_revisions r
           where r.revision_id = content_item__get_live_revision(:item_id) and i.item_id = r.item_id
       </querytext>
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.1 -r1.12.2.2
--- openacs-4/packages/acs-content-repository/tcl/revision-procs.tcl	31 Mar 2004 03:14:35 -0000	1.12.2.1
+++ openacs-4/packages/acs-content-repository/tcl/revision-procs.tcl	1 Apr 2004 01:20:56 -0000	1.12.2.2
@@ -72,7 +72,7 @@
                 return [db_blob_get write_lob_content ""]
             }
 	    # need to set content_length header here
-	    ns_set put [ns_conn outputheaders] ContentLength $content_length
+	    ns_set put [ns_conn outputheaders] Content-Length $content_length
             ReturnHeaders $mime_type
 	    # also need to check for HEAD method and skip sending
 	    # actual content