Index: openacs-4/packages/dotlrn/tcl/site-nodes-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/Attic/site-nodes-procs.tcl,v
diff -u -r1.16 -r1.17
--- openacs-4/packages/dotlrn/tcl/site-nodes-procs.tcl	12 May 2002 18:20:31 -0000	1.16
+++ openacs-4/packages/dotlrn/tcl/site-nodes-procs.tcl	15 May 2002 22:13:57 -0000	1.17
@@ -341,4 +341,18 @@
         return $node_id
     }
 
+    ad_proc -public get_child_package_id {
+        {-parent_package_id ""}
+        {-package_key:required}
+    } {
+        get the package_id of package_key that is mounted directly under
+        parent_package_id. returns 0 if not found.
+    } {
+        if {[empty_string_p $parent_package_id]} {
+            set parent_package_id [ad_conn package_id]
+        }
+
+        return [db_string select_child_package_id {} -default 0]
+    }
+
 }