Index: openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs-oracle.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs-oracle.xql	19 Feb 2002 19:03:24 -0000	1.1
@@ -0,0 +1,28 @@
+<?xml version="1.0"?>
+
+<queryset>
+
+<fullquery name="create_fs_root_folder">
+<querytext>
+  begin
+    :1 := file_storage.new_root_folder(:package_id);
+  end
+</querytext>
+</fullquery>
+
+<fullquery name="create_fs_public_folder">
+<querytext>
+begin
+  :1 := file_storage.new_folder (
+     name => :name,
+     folder_name => :folder_name,
+     parent_id => :folder_id,
+     creation_user => :user_id,
+     creation_ip => :ip);
+end
+        
+</querytext>
+</fullquery>
+
+
+</queryset>