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 -N -r1.8 -r1.9
--- openacs-4/packages/acs-tcl/tcl/apm-file-procs-postgresql.xql	4 May 2001 06:04:28 -0000	1.8
+++ openacs-4/packages/acs-tcl/tcl/apm-file-procs-postgresql.xql	5 May 2001 17:39:19 -0000	1.9
@@ -7,7 +7,7 @@
       <querytext>
 
 select content_item__new(
-         'tarball-for-package-version-${version_id}',
+         :name,
          null,
          null,
          null,
@@ -36,7 +36,7 @@
   begin
 
   v_revision_id := content_revision__new(
-                                       '${package_key}-tarball',
+                                       :title,
                                        'gzipped tarfile',
                                        now(),
                                        'text/plain',
@@ -64,12 +64,22 @@
       <querytext>
 
     update cr_revisions
-    set content = '[cr_create_content_file $item_id $revision_id $tmpfile]'
+    set content = '[set content_file [cr_create_content_file $item_id $revision_id $tmpfile]]'
     where revision_id = :revision_id
 
       </querytext>
 </fullquery>
- 
+
+ <fullquery name="apm_generate_tarball.update_content_length">      
+      <querytext>
+
+                update apm_package_versions
+                set content_length = [file size [cr_fs_path]$content_file]
+                where version_id = :version_id
+
+      </querytext>
+</fullquery>
+
 <fullquery name="apm_extract_tarball.distribution_tar_ball_select">      
       <querytext>