Index: openacs-4/packages/dotlrn/tcl/site-nodes-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/Attic/site-nodes-procs.xql,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/dotlrn/tcl/site-nodes-procs.xql	12 May 2002 18:20:31 -0000	1.10
+++ openacs-4/packages/dotlrn/tcl/site-nodes-procs.xql	15 May 2002 22:13:57 -0000	1.11
@@ -40,4 +40,17 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="site_nodes::get_child_package_id.select_child_package_id">
+        <querytext>
+            select sn1.object_id
+            from site_nodes sn1,
+                 apm_packages
+            where sn1.parent_id = (select sn2.node_id
+                                   from site_nodes sn2
+                                   where sn2.object_id = :parent_package_id)
+            and sn1.object_id = apm_packages.package_id
+            and apm_packages.package_key = :package_key
+        </querytext>
+    </fullquery>
+
 </queryset>