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.5 -r1.6
--- openacs-4/packages/dotlrn/tcl/site-nodes-procs.tcl	4 Feb 2002 20:03:38 -0000	1.5
+++ openacs-4/packages/dotlrn/tcl/site-nodes-procs.tcl	20 Feb 2002 20:36:05 -0000	1.6
@@ -7,6 +7,31 @@
 }
 
 namespace eval site_nodes {
+
+    ad_proc -public get_node_id_from_package_id {
+        {-package_id:required}
+    } {
+        get node_id of a package instance
+    } {
+        return [db_string get_node_id_from_package_id {
+            select node_id
+            from site_nodes
+            where object_id = :package_id
+        }]
+    }
+
+    ad_proc -public get_url_from_package_id {
+        {-package_id:required}
+    } {
+        get node_id of a package instance
+    } {
+        return [db_string get_node_id_from_package_id {
+            select site_node.url(node_id)
+            from site_nodes
+            where object_id = :package_id
+        }]
+    }
+
     ad_proc -public get_url_from_node_id {
         {-node_id:required}
     } {
@@ -243,5 +268,4 @@
         }
     }
 
-
 }