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 -r1.1 -r1.2
--- openacs-4/packages/file-storage/www/folder-create-2-oracle.xql 13 Aug 2001 03:10:44 -0000 1.1
+++ openacs-4/packages/file-storage/www/folder-create-2-oracle.xql 25 Sep 2001 16:52:55 -0000 1.2
@@ -7,9 +7,9 @@
begin
- :1 := content_folder.new (
+ :1 := file_storage.new_folder (
name => :name,
- label => :folder_name,
+ folder_name => :folder_name,
parent_id => :parent_id,
creation_user => :user_id,
creation_ip => :creation_ip
@@ -18,30 +18,4 @@
-
-
-
-
-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;
-
-
-
-