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.4 -r1.5 --- openacs-4/packages/acs-tcl/tcl/apm-file-procs-postgresql.xql 17 Apr 2001 22:59:51 -0000 1.4 +++ openacs-4/packages/acs-tcl/tcl/apm-file-procs-postgresql.xql 24 Apr 2001 06:02:26 -0000 1.5 @@ -1,26 +1,54 @@ + -postgresql7.1 + postgresql7.1 - - -select apm_package_version__add_file( - NULL, - :version_id, - :path, - :file_type, - :db_type -) - + + + FIX ME LOB select distribution_tarball from apm_package_versions where version_id = :version_id + - - -select apm_package_version__remove_file ( - :path, - :version_id -) - + + + + FIX ME LOB + update apm_package_versions + set distribution_tarball = empty_blob(), + distribution_uri = null, + distribution_date = sysdate + where version_id = :version_id + returning distribution_tarball into :1 + + + + + + + select apm_package_version__add_file( + :file_id, + :version_id, + :path, + :file_type, + :db_type + ) + + + + + + + + + select apm_package_version__remove_file( + :path, + :version_id + ) + + + + +