Index: openacs-4/packages/cms/tcl/publish-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/tcl/publish-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/cms/tcl/publish-procs.tcl	20 Aug 2001 04:35:42 -0000	1.4
+++ openacs-4/packages/cms/tcl/publish-procs.tcl	2 Sep 2001 14:24:58 -0000	1.5
@@ -366,7 +366,14 @@
 } {
   foreach_publish_path $url {
     mkdirs $filename
-      
+
+    db_1row get_storage_type "
+           select storage_type 
+             from cr_items 
+            where item_id = (select item_id 
+                               from cr_revisions 
+                              where revision_id = :revision_id)"
+
     db_blob_get_file wmb_get_blob_file "
       select content from cr_revisions where revision_id = $revision_id
     " -file $filename