Index: openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl,v
diff -u -r1.45 -r1.46
--- openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl	20 Oct 2003 22:05:55 -0000	1.45
+++ openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl	10 Nov 2003 16:10:16 -0000	1.46
@@ -575,7 +575,20 @@
 
 }    
 
+ad_proc -public site_node::get_package_url {
+    {-package_key:required}
+} {
+    Get the URL of any mounted instance of a package with the given package_key.
 
+    @return a URL, or empty string if no instance of the package is mounted.
+} {
+    return [lindex [site_node::get_children \
+			-all \
+			-node_id [site_node::get_node_id -url /] \
+			-package_key $package_key] 0]
+}
+
+
 ad_proc -public site_node::verify_folder_name {
     {-parent_node_id:required}
     {-current_node_id ""}