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.13 -r1.14
--- openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl	13 Jul 2002 00:50:56 -0000	1.13
+++ openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl	14 Aug 2002 19:05:08 -0000	1.14
@@ -195,10 +195,26 @@
         {-object_id:required}
     } {
         return the site node associated with the given object_id
+
+        WARNING: Returns only the first site node associated with this object.
     } {
         return [get -url [lindex [get_url_from_object_id -object_id $object_id] 0]]
     }
 
+    ad_proc -public get_all_from_object_id {
+        {-object_id:required}
+    } {
+        return a list of site nodes associated with the given object_id
+    } {
+        set node_id_list [list]
+
+        foreach url [get_url_from_object_id -object_id $object_id] {
+            lappend node_id_list [get -url $url]
+        }
+
+        return $node_id_list
+    }
+
     ad_proc -public get_url {
         {-node_id:required}
     } {