Index: openacs-4/packages/file-storage/www/file-move-oracle.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/Attic/file-move-oracle.xql,v diff -u -r1.1 -r1.2 --- openacs-4/packages/file-storage/www/file-move-oracle.xql 16 Aug 2001 20:32:20 -0000 1.1 +++ openacs-4/packages/file-storage/www/file-move-oracle.xql 22 Sep 2001 05:50:04 -0000 1.2 @@ -7,7 +7,7 @@ begin - :1 := content_item.get_title(:file_id); + :1 := file_storage.get_title(:file_id); end; Index: openacs-4/packages/file-storage/www/file-move-postgresql.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/Attic/file-move-postgresql.xql,v diff -u -r1.1 -r1.2 --- openacs-4/packages/file-storage/www/file-move-postgresql.xql 16 Aug 2001 20:32:33 -0000 1.1 +++ openacs-4/packages/file-storage/www/file-move-postgresql.xql 22 Sep 2001 05:50:16 -0000 1.2 @@ -6,7 +6,7 @@ - select content_item__get_title(:file_id); + select file_storage__get_title(:file_id); Index: openacs-4/packages/file-storage/www/version-delete-oracle.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/Attic/version-delete-oracle.xql,v diff -u -r1.3 -r1.4 --- openacs-4/packages/file-storage/www/version-delete-oracle.xql 28 Aug 2001 03:50:30 -0000 1.3 +++ openacs-4/packages/file-storage/www/version-delete-oracle.xql 22 Sep 2001 05:59:00 -0000 1.4 @@ -3,29 +3,29 @@ oracle8.1.6 - + - - begin - if :version_id = content_item.get_live_revision(:item_id) then - content_revision.delete (:version_id); - content_item.set_live_revision(content_item.get_latest_revision(:item_id)); - else - content_revision.delete (:version_id); - end if; - end; + begin + :1 := file_storage.delete_version( + :item_id, + :version_id + ); + end; + - + - + begin - content_item.delete(:item_id); + file_storage.delete_file( + :item_id + ); end; - + Index: openacs-4/packages/file-storage/www/version-delete-postgresql.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/Attic/version-delete-postgresql.xql,v diff -u -r1.2 -r1.3 --- openacs-4/packages/file-storage/www/version-delete-postgresql.xql 25 Aug 2001 00:44:31 -0000 1.2 +++ openacs-4/packages/file-storage/www/version-delete-postgresql.xql 22 Sep 2001 05:59:16 -0000 1.3 @@ -3,32 +3,24 @@ postgresql7.1 - + - - begin - if :version_id = content_item__get_live_revision(:item_id) - then - PERFORM content_revision__delete(:version_id); - PERFORM content_item__set_live_revision(content_item__get_latest_revision(:item_id)); - else - PERFORM content_revision__delete(:version_id); - end if; - - return 0; - end; - + select file_storage__delete_version( + :item_id, + :version_id + ); - + - select content_item__delete(:item_id); - + select file_storage__delete_file( + :item_id + ); - +