Index: openacs-4/packages/download/tcl/download-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/download/tcl/download-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/download/tcl/download-procs.tcl	23 May 2001 16:35:55 -0000	1.5
+++ openacs-4/packages/download/tcl/download-procs.tcl	31 Oct 2001 20:42:07 -0000	1.6
@@ -170,19 +170,8 @@
         }
     }
 
-    db_1row file_type "
-    select mime_type 
-    from   cr_revisions 
-    where  revision_id = :revision_id"
+    cr_write_content -revision_id $revision_id
 
-    ReturnHeaders $mime_type
-
-    db_write_blob version_write "select content
-                                 from   cr_revisions
-                                 where  revision_id = $revision_id"
-
-
-
     return filter_return
 }