Index: openacs-4/packages/acs-kernel/sql/oracle/apm-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-kernel/sql/oracle/apm-create.sql,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/acs-kernel/sql/oracle/apm-create.sql	25 Jan 2002 22:56:39 -0000	1.9
+++ openacs-4/packages/acs-kernel/sql/oracle/apm-create.sql	6 Apr 2002 17:34:13 -0000	1.10
@@ -1118,6 +1118,10 @@
    package_key		in apm_package_types.package_key%TYPE
   ) return apm_package_versions.version_id%TYPE;
   
+    function parent_id (
+        package_id in apm_packages.package_id%TYPE
+    ) return apm_packages.package_id%TYPE;
+
 end apm_package;
 /
 show errors
@@ -1994,6 +1998,26 @@
          then
          return 0;
    end highest_version;
+
+    function parent_id (
+        package_id in apm_packages.package_id%TYPE
+    ) return apm_packages.package_id%TYPE
+    is
+        v_package_id apm_packages.package_id%TYPE;
+    begin
+        select sn1.object_id
+        into v_package_id
+        from site_nodes sn1
+        where sn1.node_id = (select sn2.parent_id
+                             from site_nodes sn2
+                             where sn2.object_id = apm_package.parent_id.package_id);
+
+        return v_package_id;
+
+        exception when NO_DATA_FOUND then
+            return -1;
+    end parent_id;
+
 end apm_package;
 /
 show errors
Index: openacs-4/packages/acs-kernel/sql/postgresql/apm-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-kernel/sql/postgresql/apm-create.sql,v
diff -u -r1.25 -r1.26
--- openacs-4/packages/acs-kernel/sql/postgresql/apm-create.sql	25 Jan 2002 23:02:42 -0000	1.25
+++ openacs-4/packages/acs-kernel/sql/postgresql/apm-create.sql	6 Apr 2002 17:34:13 -0000	1.26
@@ -1844,7 +1844,25 @@
       end if;
 end;' language 'plpgsql';
 
+create function apm_package__parent_id (integer) returns integer as '
+declare
+    apm_package__parent_id__package_id alias foreign key $1;
+    v_package_id apm_packages.package_id%TYPE;
+begin
+    select sn1.object_id
+    into v_package_id
+    from site_nodes sn1
+    where sn1.node_id = (select sn2.parent_id
+                         from site_nodes sn2
+                         where sn2.object_id = apm_package__parent_id__package_id);
 
+    if NOT FOUND then
+        return -1;
+    else
+        return v_package_id;
+    end if;
+end;' language 'plpgsql';
+
 -- create or replace package body apm_package_version 
 create function apm_package_version__new (integer,varchar,varchar,varchar,varchar,varchar,varchar,timestamp,varchar,varchar,boolean,boolean) returns integer as '
 declare