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.12 -r1.13
--- openacs-4/packages/file-storage/tcl/file-storage-procs-oracle.xql	4 Apr 2002 03:01:06 -0000	1.12
+++ openacs-4/packages/file-storage/tcl/file-storage-procs-oracle.xql	26 Apr 2002 21:07:10 -0000	1.13
@@ -39,7 +39,7 @@
         </querytext>
     </fullquery>
 
-    <fullquery name="fs::get_folder_contents.get_folder_contents">
+    <fullquery name="fs::get_folder_contents.select_folder_contents">
         <querytext>
             select fs_objects.object_id,
                    fs_objects.name,
@@ -59,87 +59,73 @@
         </querytext>
     </fullquery>
 
-<fullquery name="fs_get_folder_name.folder_name">      
-      <querytext>
-      
-    	begin
-        	:1 := file_storage.get_folder_name(:folder_id);
-    	end;
+    <fullquery name="fs::get_folder_contents_recursive.select_folder_contents_recursive">
+        <querytext>
+        </querytext>
+    </fullquery>
 
-      </querytext>
-</fullquery>
+    <fullquery name="fs_get_folder_name.folder_name">
+        <querytext>
+            begin
+                :1 := file_storage.get_folder_name(:folder_id);
+            end;
+        </querytext>
+    </fullquery>
 
- 
-<fullquery name="children_have_permission_p.child_perms">      
-      <querytext>
-      
-    	select count(*)
-    	from   cr_items
-    	where  item_id in (select item_id
-                       	   from   cr_items
-                       	   connect by prior item_id = parent_id
-                           start with item_id = :item_id)
-    	and    acs_permission.permission_p(item_id,:user_id,:privilege) = 'f'
+    <fullquery name="children_have_permission_p.child_perms">
+        <querytext>
+            select count(*)
+            from cr_items
+            where item_id in (select item_id
+                              from cr_items
+                              connect by prior item_id = parent_id
+                              start with item_id = :item_id)
+            and acs_permission.permission_p(item_id, :user_id, :privilege) = 'f'
+        </querytext>
+    </fullquery>
 
-      </querytext>
-</fullquery>
+    <fullquery name="children_have_permission_p.child_items">
+        <querytext>
+            select item_id as child_item_id
+            from cr_items
+            connect by prior item_id = parent_id
+            start with item_id = :item_id
+        </querytext>
+    </fullquery>
 
- 
-<fullquery name="children_have_permission_p.child_items">      
-      <querytext>
-      
-	select item_id as child_item_id
-	from   cr_items
-	connect by prior item_id = parent_id
-	start with item_id = :item_id
-    
-      </querytext>
-</fullquery>
+    <fullquery name="children_have_permission_p.revision_perms">
+        <querytext>
+            select count(*)
+            from cr_revisions
+            where item_id = :child_item_id
+            and acs_permission.permission_p(revision_id, :user_id, :privilege) = 'f'
+        </querytext>
+    </fullquery>
 
- 
-<fullquery name="children_have_permission_p.revision_perms">      
-      <querytext>
-      
-	select count(*)
-	from   cr_revisions
-	where  item_id = :child_item_id
-	and    acs_permission.permission_p(revision_id,:user_id,:privilege) = 'f'
+    <fullquery name="fs_context_bar_list.title">
+        <querytext>
+            begin
+                :1 := file_storage.get_title(:item_id);
+            end;
+        </querytext>
+    </fullquery>
 
-      </querytext>
-</fullquery>
+    <fullquery name="fs_context_bar_list.context_bar">
+        <querytext>
+            select case when file_storage.get_content_type(i.item_id) = 'content_folder'
+                        then 'index?folder_id='
+                        else 'file?file_id='
+                   end || i.item_id,
+                   file_storage.get_title(i.item_id)
+            from cr_items i
+            where item_id not in (select i2.item_id
+                                  from cr_items i2
+                                  connect by prior i2.parent_id = i2.item_id
+                                  start with i2.item_id = file_storage.get_root_folder([ad_conn package_id]))
+            connect by prior i.parent_id = i.item_id
+            start with item_id = :start_id
+            order by level desc
+        </querytext>
+    </fullquery>
 
- 
-<fullquery name="fs_context_bar_list.title">      
-      <querytext>
-
-      	begin
-	    :1 := file_storage.get_title(:item_id);
-	end;
-
-      </querytext>
-</fullquery>
-
- 
-<fullquery name="fs_context_bar_list.context_bar">      
-      <querytext>
-      
-    	select case when file_storage.get_content_type(i.item_id) = 'content_folder' 
-	            then 'index?folder_id=' 
-	            else 'file?file_id=' 
-	       end || i.item_id,
-               file_storage.get_title(i.item_id)
-    	from   cr_items i
-    	where  item_id not in (
-        		       	select i2.item_id
-        			from   cr_items i2
-        			connect by prior i2.parent_id = i2.item_id
-        			start with i2.item_id = 
-				    file_storage.get_root_folder([ad_conn package_id]))
-    	connect by prior i.parent_id = i.item_id
-    	start with item_id = :start_id
-    	order by level desc
-
-      </querytext>
-</fullquery>
- 
 </queryset>