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.13 -r1.14 --- openacs-4/packages/acs-tcl/tcl/apm-file-procs-postgresql.xql 31 Oct 2001 20:42:07 -0000 1.13 +++ openacs-4/packages/acs-tcl/tcl/apm-file-procs-postgresql.xql 7 Aug 2017 23:47:59 -0000 1.14 @@ -3,63 +3,6 @@ postgresql7.1 - - - -select content_item__new( - varchar :name, - null, - null, - null, - now(), - null, - null, - :creation_ip, - 'content_item', - 'content_revision', - null, - null, - 'text/plain', - null, - null, - 'file' - ) - - - - - - - - declare - v_revision_id integer; - begin - - v_revision_id := content_revision__new( - :title, - 'gzipped tarfile', - now(), - 'text/plain', - null, - 'not_important', - :item_id, - null, - now(), - :user_id, - :creation_ip - ); - - update cr_items - set live_revision = v_revision_id - where item_id = :item_id; - - return v_revision_id; - - end; - - - - @@ -93,31 +36,4 @@ - - - - select apm_package_version__add_file( - :file_id, - :version_id, - :path, - :file_type, - :db_type - ) - - - - - - - - - select apm_package_version__remove_file( - :version_id, - :path - ) - - - - -