Index: openacs-4/packages/file-storage/sql/oracle/file-storage-package-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/sql/oracle/file-storage-package-create.sql,v
diff -u -r1.4.2.4 -r1.4.2.5
--- openacs-4/packages/file-storage/sql/oracle/file-storage-package-create.sql	23 Jun 2003 18:47:02 -0000	1.4.2.4
+++ openacs-4/packages/file-storage/sql/oracle/file-storage-package-create.sql	15 Nov 2003 18:17:12 -0000	1.4.2.5
@@ -27,7 +27,8 @@
         --
         package_id in apm_packages.package_id%TYPE,
         folder_name in cr_folders.label%TYPE default null,
-        description in cr_folders.description%TYPE default null
+        description in cr_folders.description%TYPE default null,
+	name in cr_items.name%TYPE default null
     ) return fs_root_folders.folder_id%TYPE;
 
     function new_file(
@@ -205,7 +206,8 @@
         --
         package_id in apm_packages.package_id%TYPE,
         folder_name in cr_folders.label%TYPE default null,
-        description in cr_folders.description%TYPE default null
+        description in cr_folders.description%TYPE default null,
+	name in cr_items.name%TYPE default null
     ) return fs_root_folders.folder_id%TYPE
     is
         v_folder_id             fs_root_folders.folder_id%TYPE;
@@ -234,7 +236,7 @@
         end if;
 
         v_folder_id := content_folder.new(
-            name => v_package_key || '_' || package_id,
+            name => nvl(new_root_folder.name,v_package_key || '_' || package_id),
             label => v_folder_name,
             description => v_description
         );
