Index: openacs-4/packages/file-storage/sql/oracle/file-storage-package-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/sql/oracle/file-storage-package-create.sql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/file-storage/sql/oracle/file-storage-package-create.sql	19 Jul 2002 23:17:15 -0000	1.3
+++ openacs-4/packages/file-storage/sql/oracle/file-storage-package-create.sql	17 Sep 2002 21:03:24 -0000	1.4
@@ -86,6 +86,10 @@
         item_id in cr_items.item_id%TYPE
     ) return varchar;
 
+    function get_parent_id(
+	item_id in cr_items.item_id%TYPE
+    ) return cr_items.item_id%TYPE;
+
     function get_content_type(
         --
         -- Wrapper for content_item. get_content_type
@@ -496,6 +500,20 @@
         return v_title;
     end get_title;
 
+    function get_parent_id(
+        item_id in cr_items.item_id%TYPE
+    ) return cr_items.item_id%TYPE
+    is
+        v_parent_id             cr_items.item_id%TYPE;
+    begin
+        select parent_id
+        into v_parent_id
+        from cr_items
+        where item_id = get_parent_id.item_id;
+
+	return v_parent_id;
+    end get_parent_id;
+
     function get_content_type(
         --
         -- Wrapper for content_item. get_content_type