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.14 -r1.15
--- openacs-4/packages/dotlrn/tcl/site-nodes-procs.tcl	18 Apr 2002 17:36:01 -0000	1.14
+++ openacs-4/packages/dotlrn/tcl/site-nodes-procs.tcl	6 May 2002 22:55:17 -0000	1.15
@@ -36,6 +36,18 @@
         }]
     }
 
+    ad_proc -public get_package_id_from_node_id {
+        {-node_id:required}
+    } {
+        get package_id from a node id
+    } {
+        return [db_string get_package_id_from_node_id {
+            select object_id 
+            from site_nodes
+            where node_id = :node_id
+        }]
+    }
+
     ad_proc -public get_url_from_package_id {
         {-package_id:required}
     } {
@@ -58,7 +70,7 @@
         }]
     }
 
-    ad_proc -public get_node_id_from_child {
+    ad_proc -public get_node_id_from_child_name {
         {-parent_node_id:required}
         {-name:required}
     } {