Index: openacs-4/packages/file-storage/www/search-oracle.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/search-oracle.xql,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/file-storage/www/search-oracle.xql 17 Aug 2001 01:24:17 -0000 1.1 @@ -0,0 +1,19 @@ + + + + oracle8.1.6 + + + + + select item_id as file_id, + content_item.get_title(item_id) as title + from cr_items + where lower(content_item.get_title(item_id)) like :query + and acs_permission.permission_p(item_id,:user_id,'read') = 't' + + + + + + Index: openacs-4/packages/file-storage/www/search-postgresql.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/search-postgresql.xql,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/file-storage/www/search-postgresql.xql 17 Aug 2001 01:24:34 -0000 1.1 @@ -0,0 +1,19 @@ + + + + postgresql7.1 + + + + + select item_id as file_id, + content_item__get_title(item_id) as title + from cr_items + where lower(content_item__get_title(item_id)) like :query + and acs_permission__permission_p(item_id,:user_id,'read') = 't' + + + + + + Index: openacs-4/packages/file-storage/www/version-add-2-oracle.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/Attic/version-add-2-oracle.xql,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/file-storage/www/version-add-2-oracle.xql 17 Aug 2001 01:24:50 -0000 1.1 @@ -0,0 +1,46 @@ + + + + oracle8.1.6 + + + + + begin + :1 := content_revision.new ( + title => :name, + description => :description, + mime_type => :mime_type, + item_id => :file_id, + creation_user => :user_id, + creation_ip => :ip_addr + ); + end; + + + + + + + + + update cr_revisions + set content = empty_blob() + where revision_id = :revision_id + returning content into :1 + + + + + + + + +begin + content_item.set_live_revision(:revision_id); +end; + + + + + Index: openacs-4/packages/file-storage/www/version-add-2-postgresql.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/Attic/version-add-2-postgresql.xql,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/file-storage/www/version-add-2-postgresql.xql 17 Aug 2001 01:25:08 -0000 1.1 @@ -0,0 +1,43 @@ + + + + postgresql7.1 + + + + + select content_revision__new ( + :name, -- title + :description, -- description + :mime_type, -- mime_type + :file_id, -- item_id + :user_id, -- creation_user + :ip_addr -- creation_ip + ); + + + + + + + + + update cr_revisions + set content = empty_blob() + where revision_id = :revision_id + returning content into :1 + + + + + + + + + select content_item__set_live_revision(:revision_id); + + + + + + Index: openacs-4/packages/file-storage/www/version-add.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/Attic/version-add.xql,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/file-storage/www/version-add.xql 17 Aug 2001 01:25:24 -0000 1.1 @@ -0,0 +1,17 @@ + + + + + + + select title as name + from cr_revisions + where revision_id = (select live_revision + from cr_items + where item_id = :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 -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/file-storage/www/version-delete-oracle.xql 17 Aug 2001 01:25:39 -0000 1.1 @@ -0,0 +1,22 @@ + + + + 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; + + + + + + 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 -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/file-storage/www/version-delete-postgresql.xql 17 Aug 2001 01:25:53 -0000 1.1 @@ -0,0 +1,27 @@ + + + + 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; + + + + + + + Index: openacs-4/packages/file-storage/www/version-delete.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/Attic/version-delete.xql,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/file-storage/www/version-delete.xql 17 Aug 2001 01:26:08 -0000 1.1 @@ -0,0 +1,25 @@ + + + + + + + select item_id + from cr_revisions + where revision_id = :version_id + + + + + + + + + select title + from cr_revisions + where revision_id = :version_id + + + + + Index: openacs-4/packages/file-storage/www/download/index-oracle.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/download/Attic/index-oracle.xql,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/file-storage/www/download/index-oracle.xql 17 Aug 2001 01:26:35 -0000 1.1 @@ -0,0 +1,29 @@ + + + + oracle8.1.6 + + + + + select content_item.get_live_revision( + content_item.get_id( + :path, + file_storage.get_root_folder([ad_conn package_id]) + ) + ) as version_id from dual + + + + + + + + select content + from cr_revisions + where revision_id = :version_id + + + + + Index: openacs-4/packages/file-storage/www/download/index-postgresql.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/download/Attic/index-postgresql.xql,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/file-storage/www/download/index-postgresql.xql 17 Aug 2001 01:26:48 -0000 1.1 @@ -0,0 +1,30 @@ + + + + postgresql7.1 + + + + + select content_item__get_live_revision( + content_item__get_id( + :path, + file_storage__get_root_folder([ad_conn package_id]), + 'f' + ) + ) as version_id from dual + + + + + + + + select r.lob as content, i.storage_type + from cr_revisions r, cr_items i + where r.item_id = i.item_id + and r.revision_id = :version_id + + + + Index: openacs-4/packages/file-storage/www/download/index.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/download/Attic/index.xql,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/file-storage/www/download/index.xql 17 Aug 2001 01:27:00 -0000 1.1 @@ -0,0 +1,15 @@ + + + + + + + + select mime_type + from cr_revisions + where revision_id = :version_id + + + + +