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.49 -r1.50
--- openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl	4 Jan 2004 21:20:40 -0000	1.49
+++ openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl	11 Jan 2004 16:33:25 -0000	1.50
@@ -639,6 +639,10 @@
 
     @return a URL, or empty string if no instance of the package is mounted.
 } {
+    # TODO: Accept URL, and find the mounted instance nearest to that URL, e.g. 
+    # first look in same subsite as the URL given, then go up the tree of subsites
+    # until you reach the main site.
+    
     return [lindex [site_node::get_children \
 			-all \
 			-node_id [site_node::get_node_id -url /] \