Index: openacs-4/packages/project-manager/tcl/project-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/tcl/project-procs-oracle.xql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/project-manager/tcl/project-procs-oracle.xql	3 Jun 2005 22:13:44 -0000	1.3
+++ openacs-4/packages/project-manager/tcl/project-procs-oracle.xql	28 Nov 2005 16:59:29 -0000	1.4
@@ -195,4 +195,30 @@
     </querytext>
   </fullquery>
 
+<fullquery name="pm::project::get_all_subprojects.get_subprojects">
+    <querytext>
+	select 
+		distinct 
+	    	p.item_id 
+	from 
+		pm_projectsx p, 
+	    	pm_projectsx p2 
+	where 
+	    	p.parent_id = p2.item_id 
+	    	and p.parent_id = :parent
+    </querytext>
+</fullquery>
+
+<fullquery name="pm::project::check_projects_status.get_projects_status">
+    <querytext>
+	select
+		distinct
+		status_id
+	from
+		pm_projectsx
+	where
+		item_id in ($projects)
+    </querytext>
+</fullquery>
+
 </queryset>