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 -N -r1.2 -r1.3
--- openacs-4/packages/file-storage/tcl/file-storage-procs.xql	21 Feb 2002 20:06:27 -0000	1.2
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.xql	22 Feb 2002 22:12:10 -0000	1.3
@@ -49,4 +49,12 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="fs::get_folder_contents_count.get_folder_contents_count">
+        <querytext>
+            select count(*)
+            from cr_items
+            where cr_items.parent_id = :folder_id
+        </querytext>
+    </fullquery>
+
 </queryset>