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 -r1.1 -r1.2
--- openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs-oracle.xql	19 Feb 2002 19:03:24 -0000	1.1
+++ openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs-oracle.xql	19 Feb 2002 20:33:24 -0000	1.2
@@ -1,28 +1,31 @@
 <?xml version="1.0"?>
 
 <queryset>
+  <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
 
-<fullquery name="create_fs_root_folder">
-<querytext>
-  begin
-    :1 := file_storage.new_root_folder(:package_id);
-  end
-</querytext>
+<fullquery name="dotlrn_fs::add_applet_to_community.create_fs_root_folder">
+  <querytext>
+    declare
+    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 name="dotlrn_fs::add_applet_to_community.create_fs_public_folder">
+  <querytext>
+    declare
+    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>
+