Index: openacs-4/packages/acs-tcl/tcl/site-nodes-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/site-nodes-procs-oracle.xql,v
diff -u -r1.17 -r1.18
--- openacs-4/packages/acs-tcl/tcl/site-nodes-procs-oracle.xql	27 Nov 2003 15:25:18 -0000	1.17
+++ openacs-4/packages/acs-tcl/tcl/site-nodes-procs-oracle.xql	13 Mar 2007 09:09:04 -0000	1.18
@@ -20,7 +20,8 @@
 		   p.package_key,
 		   p.package_id,
 		   p.instance_name,
-		   t.package_type
+		   t.package_type,
+		   (select count(*) from site_nodes where parent_id = n.node_id) as num_children
 	    from apm_packages p,
 		 apm_package_types t,
 		 (select node_id, parent_id, name, directory_p, pattern_p, object_id, 
@@ -34,6 +35,29 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="site_node::update_cache.select_direct_child_site_nodes">
+        <querytext>
+	    select n.node_id,
+		   n.parent_id,
+		   n.name,
+		   n.directory_p,
+		   n.pattern_p,
+		   n.object_id,
+		   p.package_key,
+		   p.package_id,
+		   p.instance_name,
+		   t.package_type,
+		   (select count(*) from site_nodes where parent_id = n.node_id) as num_children
+	    from apm_packages p,
+		 apm_package_types t,
+		 site_nodes n
+	    where n.object_id = p.package_id(+)
+	    and t.package_key (+) = p.package_key
+	    and (n.node_id = :node_id or n.parent_id = :node_id)
+	    order by n.nodes_rownum
+        </querytext>
+    </fullquery>
+
     <fullquery name="site_node::update_cache.select_site_node">
         <querytext>
 	    select n.node_id,
@@ -45,7 +69,8 @@
 		   p.package_key,
 		   p.package_id,
 		   p.instance_name,
-		   t.package_type
+		   t.package_type,
+		   (select count(*) from site_nodes where parent_id = n.node_id) as num_children
 	    from apm_packages p, apm_package_types t, site_nodes n
 	    where n.node_id = :node_id
 	    and n.object_id = p.package_id(+)