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.6 -r1.7
--- openacs-4/packages/dotlrn/tcl/site-nodes-procs.tcl	20 Feb 2002 20:36:05 -0000	1.6
+++ openacs-4/packages/dotlrn/tcl/site-nodes-procs.tcl	25 Feb 2002 20:38:37 -0000	1.7
@@ -71,6 +71,14 @@
         }
     }
 
+    ad_proc -public get_parent_object_id {
+        {-instance_id ""}
+    } {
+        get the object_id (not node_id!) of the parent of this instance
+    } {
+        return [db_string select_parent_oid_by_instance_id {}]
+    }
+
     ad_proc -public get_parent_name {
         {-instance_id ""}
     } {