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.12 -r1.13
--- openacs-4/packages/dotlrn/tcl/site-nodes-procs.tcl	11 Apr 2002 02:36:04 -0000	1.12
+++ openacs-4/packages/dotlrn/tcl/site-nodes-procs.tcl	17 Apr 2002 04:30:27 -0000	1.13
@@ -58,6 +58,15 @@
         }]
     }
 
+    ad_proc -public get_node_id_from_child {
+        {-parent_node_id:required}
+        {-name:required}
+    } {
+        return [db_string get_child_node_id {
+            select node_id from site_nodes where parent_id = :parent_node_id
+            and name = :name} -default ""]
+    }
+
     ad_proc -public get_node_id_from_url {
         {-url:required}
         {-parent_node_id ""}