Index: openacs-4/packages/acs-kernel/sql/oracle/tree-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-kernel/sql/oracle/tree-create.sql,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-kernel/sql/oracle/tree-create.sql	29 Jul 2002 01:35:03 -0000	1.4
+++ openacs-4/packages/acs-kernel/sql/oracle/tree-create.sql	16 Sep 2002 21:47:01 -0000	1.5
@@ -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