Index: openacs-4/packages/acs-tcl/tcl/apm-file-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-file-procs-postgresql.xql,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/acs-tcl/tcl/apm-file-procs-postgresql.xql	5 May 2001 17:39:19 -0000	1.9
+++ openacs-4/packages/acs-tcl/tcl/apm-file-procs-postgresql.xql	6 May 2001 14:30:08 -0000	1.10
@@ -74,7 +74,7 @@
       <querytext>
 
                 update apm_package_versions
-                set content_length = [file size [cr_fs_path]$content_file]
+                set content_length = [cr_file_size $content_file]
                 where version_id = :version_id
 
       </querytext>
@@ -83,7 +83,7 @@
 <fullquery name="apm_extract_tarball.distribution_tar_ball_select">      
       <querytext>
 
-   select '[cr_fs_path]' || content 
+   select '[cr_fs_path]' || content as content, storage_type
      from cr_revisions 
     where revision_id = (select content_item__get_latest_revision(item_id)
                            from apm_package_versions