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
+
+
+
+
+