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.6 -r1.7
--- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	20 Feb 2002 21:25:21 -0000	1.6
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	21 Feb 2002 20:06:27 -0000	1.7
@@ -226,6 +226,8 @@
 
     ad_proc -public new_root_folder {
         {-package_id:required}
+        {-pretty_name ""}
+        {-description ""}
     } {
         Create a root folder for a package instance
 
@@ -277,4 +279,20 @@
         return [db_exec_plsql new_folder {}]
     }
 
+    ad_proc -public get_folder {
+        {-name:required}
+        {-parent_id:required}
+    } {
+        Retrieve the folder_id of a folder given it's name and parent folder
+
+        @param name Internal name of the folder, must be unique under a given
+                    parent_id
+        @param parent_id The parent folder to look under
+
+        @return folder_id of the folder, or null if no folder was found by that
+                name
+    } {
+        return [db_string get_folder {} -default ""]
+    }
+
 }