Index: openacs-4/packages/file-storage/www/folder-create-2-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/Attic/folder-create-2-oracle.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/file-storage/www/folder-create-2-oracle.xql 13 Aug 2001 03:10:44 -0000 1.1
@@ -0,0 +1,47 @@
+
+
+
+ oracle8.1.6
+
+
+
+
+begin
+ :1 := content_folder.new (
+ name => :name,
+ label => :folder_name,
+ parent_id => :parent_id,
+ creation_user => :user_id,
+ creation_ip => :creation_ip
+ );
+end;
+
+
+
+
+
+
+
+begin
+ content_folder.register_content_type(:folder_id,'content_revision');
+ content_folder.register_content_type(:folder_id,'content_folder');
+end;
+
+
+
+
+
+
+
+begin
+ acs_permission.grant_permission (
+ object_id => :folder_id,
+ grantee_id => :user_id,
+ privilege => 'admin'
+ );
+end;
+
+
+
+
+
Index: openacs-4/packages/file-storage/www/folder-create-2-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/Attic/folder-create-2-postgresql.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/file-storage/www/folder-create-2-postgresql.xql 13 Aug 2001 03:10:21 -0000 1.1
@@ -0,0 +1,56 @@
+
+
+
+ postgresql7.1
+
+
+
+
+ select content_folder__new (
+ :name, -- name
+ :folder_name, -- label
+ null, -- description
+ :parent_id, -- parent_id
+ null, -- context_id (default)
+ null, -- folder_id (default)
+ now(), -- creation_date
+ :user_id, -- creation_user
+ :creation_ip -- creation_ip
+ );
+
+
+
+
+
+
+
+
+ select content_folder__register_content_type(
+ :folder_id, -- folder_id
+ 'content_revision', -- content_type
+ 'f' -- include_subtypes (default)
+ );
+ select content_folder__register_content_type(
+ :folder_id, -- folder_id
+ 'content_folder', -- content_type
+ 'f' -- include_subtypes (default)
+ );
+
+
+
+
+
+
+
+ select acs_permission__grant_permission (
+ :folder_id, -- object_id
+ :user_id, -- grantee_id
+ 'admin' -- privilege
+ );
+
+
+
+
+
+
+
Index: openacs-4/packages/file-storage/www/folder-create-2.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/Attic/folder-create-2.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/file-storage/www/folder-create-2.xql 13 Aug 2001 03:10:01 -0000 1.1
@@ -0,0 +1,15 @@
+
+
+
+
+
+
+ select count(*)
+ from cr_items
+ where name = :name
+ and parent_id = :parent_id
+
+
+
+
+
Index: openacs-4/packages/file-storage/www/folder-delete-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/Attic/folder-delete-oracle.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/file-storage/www/folder-delete-oracle.xql 13 Aug 2001 03:20:01 -0000 1.1
@@ -0,0 +1,17 @@
+
+
+
+ oracle8.1.6
+
+
+
+
+ begin
+ content_folder.delete(:folder_id);
+ end;
+
+
+
+
+
+
Index: openacs-4/packages/file-storage/www/folder-delete-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/Attic/folder-delete-postgresql.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/file-storage/www/folder-delete-postgresql.xql 13 Aug 2001 03:19:41 -0000 1.1
@@ -0,0 +1,15 @@
+
+
+
+ postgresql7.1
+
+
+
+
+ select content_folder__delete(:folder_id);
+
+
+
+
+
+
Index: openacs-4/packages/file-storage/www/folder-delete.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/Attic/folder-delete.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/file-storage/www/folder-delete.xql 13 Aug 2001 03:19:17 -0000 1.1
@@ -0,0 +1,28 @@
+
+
+
+
+
+
+ select count(*) from cr_items where parent_id = :folder_id
+
+
+
+
+
+
+
+ select parent_id from cr_items where item_id = :folder_id
+
+
+
+
+
+
+
+ select label from cr_folders where folder_id = :folder_id
+
+
+
+
+