Index: openacs.org-dev/packages/acs-kernel/sql/oracle/tree-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/acs-kernel/sql/oracle/tree-create.sql,v
diff -u -r1.1.1.2 -r1.1.1.3
--- openacs.org-dev/packages/acs-kernel/sql/oracle/tree-create.sql	31 Jul 2002 16:30:51 -0000	1.1.1.2
+++ openacs.org-dev/packages/acs-kernel/sql/oracle/tree-create.sql	8 Oct 2002 15:46:45 -0000	1.1.1.3
@@ -176,6 +176,14 @@
         return length(raw_key) / 6;
     end tree_level;
 
+    function parent_key (
+        raw_key                         in raw
+    ) return raw
+    is
+    begin
+        return substr(raw_key, 1, 6 * tree_level(raw_key) - 6);
+    end parent_key;
+
     function ancestor_p (
         ancestor_key                    in raw,
         child_key                       in raw
