Index: openacs-4/contrib/packages/bcms/tcl/bcms-folder-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/bcms/tcl/bcms-folder-procs.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/packages/bcms/tcl/bcms-folder-procs.xql	14 May 2003 15:34:59 -0000	1.1
+++ openacs-4/contrib/packages/bcms/tcl/bcms-folder-procs.xql	14 Nov 2003 11:36:18 -0000	1.2
@@ -26,4 +26,22 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="bcms::folder::get_id_by_package_id.select_folder_id">
+        <querytext>
+          select folder_id
+          from cr_folders
+          where package_id = :package_id
+        </querytext>
+    </fullquery>
+
+    <fullquery name="bcms::folder::get_id_by_package_id.select_folder_id_with_parent_id">
+        <querytext>
+             select f.folder_id 
+             from   cr_folders f,
+                    cr_items i
+             where  f.package_id = :package_id
+             and    i.item_id = f.folder_id
+             and    i.parent_id = :parent_id 
+        </querytext>
+    </fullquery>
 </queryset>