Index: openacs-4/packages/file-storage/tcl/file-storage-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-procs-oracle.xql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/file-storage/tcl/file-storage-procs-oracle.xql	22 Sep 2001 05:39:21 -0000	1.2
+++ openacs-4/packages/file-storage/tcl/file-storage-procs-oracle.xql	20 Feb 2002 16:39:39 -0000	1.3
@@ -3,17 +3,40 @@
 <queryset>
    <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
 
-<fullquery name="fs_get_root_folder.fs_root_folder">      
-      <querytext>
-      
-	 begin
-        	:1 := file_storage.get_root_folder(:package_id);
-    	 end;
+    <fullquery name="fs::new_root_folder.new_root_folder">
+        <querytext>
+            begin
+                :1 := file_storage.new_root_folder(
+                    package_id => :package_id
+                );
+            end;
+        </querytext>
+    </fullquery>
 
-      </querytext>
-</fullquery>
+    <fullquery name="fs::get_root_folder.get_root_folder">
+        <querytext>
+            begin
+                :1 := file_storage.get_root_folder(
+                    package_id => :package_id
+                );
+            end;
+        </querytext>
+    </fullquery>
 
- 
+    <fullquery name="fs::new_folder.new_folder">
+        <querytext>
+            begin
+                :1 := file_storage.new_folder(
+                    name => :name,
+                    folder_name => :pretty_name,
+                    parent_id => :parent_id,
+                    creation_user => :creation_user,
+                    creation_ip => :creation_ip
+                );
+            end;
+        </querytext>
+    </fullquery>
+
 <fullquery name="fs_get_folder_name.folder_name">      
       <querytext>
       
Index: openacs-4/packages/file-storage/tcl/file-storage-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-procs-postgresql.xql,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/file-storage/tcl/file-storage-procs-postgresql.xql	9 Dec 2001 21:08:31 -0000	1.9
+++ openacs-4/packages/file-storage/tcl/file-storage-procs-postgresql.xql	20 Feb 2002 16:39:39 -0000	1.10
@@ -3,15 +3,30 @@
 <queryset>
    <rdbms><type>postgresql</type><version>7.1</version></rdbms>
 
-<fullquery name="fs_get_root_folder.fs_root_folder">      
-      <querytext>
+    <fullquery name="fs::new_root_folder.new_root_folder">
+        <querytext>
+            select file_storage__new_root_folder(:package_id);
+        </querytext>
+    </fullquery>
 
-	select file_storage__get_root_folder(:package_id);
+    <fullquery name="fs::get_root_folder.get_root_folder">
+        <querytext>
+            select file_storage__get_root_folder(:package_id);
+        </querytext>
+    </fullquery>
 
-      </querytext>
-</fullquery>
+    <fullquery name="fs::new_folder.new_folder">
+        <querytext>
+            select file_storage__new_folder(
+                :name,
+                :pretty_name,
+                :parent_id,
+                :creation_user,
+                :creation_ip
+            );
+        </querytext>
+    </fullquery>
 
- 
 <fullquery name="fs_get_folder_name.folder_name">      
       <querytext>
 
Index: openacs-4/packages/file-storage/tcl/file-storage-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	18 Dec 2001 20:57:26 -0000	1.4
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	20 Feb 2002 16:39:39 -0000	1.5
@@ -3,9 +3,8 @@
 
     @author Kevin Scaldeferri (kevin@arsdigita.com)
     @creation-date 6 November 2000
-    @cvs-id $Id$
+    @version $Id$
 }
-
  
 ad_proc fs_get_root_folder {
     {-package_id ""}
@@ -16,13 +15,7 @@
 	set package_id [ad_conn package_id]
     }
 
-    set folder_id [db_exec_plsql fs_root_folder "
-    begin
-        :1 := file_storage.get_root_folder(:package_id);
-    end;"]
-
-    return $folder_id
-
+    return [fs::get_root_folder -package_id $package_id]
 }
 
 ad_proc fs_get_folder_name {
@@ -229,4 +222,59 @@
     return $mime_type
 }
 
+namespace eval fs {
 
+    ad_proc -public new_root_folder {
+        -package_id
+    } {
+        Create a root folder for a package instance
+
+        @param package_id Package instance associated with this root folder
+
+        @return folder_id of the new root folder
+    } {
+        return [db_exec_plsql new_root_folder {}]
+    }
+
+    ad_proc -public get_root_folder {
+        -package_id
+    } {
+        Get the root folder of a package instance
+
+        @param package_id Package instance of the root folder to retrieve
+
+        @return folder_id of the root folder retrieved
+    } {
+        return [db_exec_plsql get_root_folder {}]
+    }
+
+    ad_proc -public new_folder {
+        -name
+        -pretty_name
+        -parent_id
+        {-creation_user ""}
+        {-creation_ip ""}
+    } {
+        Create a new folder
+
+        @param name Internal name of the folder, must be unique under a given
+                    parent_id
+        @param pretty_name What we show to users of the system
+        @param parent_id Where we create this folder
+        @param creation_user Who created this folder
+        @param creation_ip What is the ip address of the creation_user
+
+        @return folder_id of the newly created folder
+    } {
+        if {[empty_string_p $creation_user]} {
+            set creation_user [ad_conn user_id]
+        }
+
+        if {[empty_string_p $creation_ip]} {
+            set creation_ip [ns_conn peeraddr]
+        }
+
+        return [db_exec_plsql new_folder {}]
+    }
+
+}