Index: openacs-4/packages/dotlrn/tcl/site-nodes-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/Attic/site-nodes-procs.xql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn/tcl/site-nodes-procs.xql	4 Feb 2002 20:03:18 -0000	1.2
+++ openacs-4/packages/dotlrn/tcl/site-nodes-procs.xql	25 Feb 2002 20:38:37 -0000	1.3
@@ -29,4 +29,12 @@
     </querytext>
   </fullquery>
 
+  <fullquery name="site_nodes::get_parent_object_id.select_parent_oid_by_instance_id">
+    <querytext>
+      select object_id from site_nodes where node_id =  (select parent_id
+      from site_nodes
+      where object_id = :instance_id)
+    </querytext>
+  </fullquery>
+
 </queryset>