Index: openacs-4/packages/file-storage/tcl/file-storage-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-procs.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/file-storage/tcl/file-storage-procs.xql	13 Aug 2001 15:41:00 -0000	1.1
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.xql	21 Feb 2002 20:06:27 -0000	1.2
@@ -40,4 +40,13 @@
       </querytext>
 </fullquery>
 
+    <fullquery name="fs::get_folder.get_folder">
+        <querytext>
+            select item_id
+            from cr_items
+            where parent_id = :parent_id
+            and name = :name
+        </querytext>
+    </fullquery>
+
 </queryset>