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 @@
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
@@ -83,7 +83,7 @@
- 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