Index: openacs-4/packages/acs-kernel/sql/oracle/groups-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-kernel/sql/oracle/groups-create.sql,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/acs-kernel/sql/oracle/groups-create.sql	5 Dec 2002 13:07:43 -0000	1.5
+++ openacs-4/packages/acs-kernel/sql/oracle/groups-create.sql	28 Aug 2003 09:41:38 -0000	1.6
@@ -34,6 +34,14 @@
                                               'banned', 'rejected', 'deleted'))
 );
 
+create table admin_rels (
+        rel_id          integer constraint admin_rel_rel_id_fk
+                        references membership_rels (rel_id)
+                        constraint admin_rel_rel_id_pk
+                        primary key
+);
+
+
 create index member_rels_member_state_idx on membership_rels (member_state);
 
 declare
@@ -101,6 +109,22 @@
    min_n_rels_two => 0, max_n_rels_two => null
  );
 
+ acs_rel_type.create_role ('admin', 'Administrator', 'Administrators');
+
+ acs_rel_type.create_type (
+   rel_type => 'admin_rel',
+   pretty_name => 'Administrator Relation',
+   pretty_plural => 'Administrator Relationships',
+   supertype => 'membership_rel',
+   table_name => 'admin_rels',
+   id_column => 'rel_id',
+   package_name => 'admin_rel',
+   object_type_one => 'group',
+   min_n_rels_one => 0, max_n_rels_one => null,
+   object_type_two => 'person', role_two => 'admin',
+   min_n_rels_two => 0, max_n_rels_two => null
+ );
+
  commit;
 end;
 /
@@ -446,6 +470,28 @@
 show errors
 
 
+create or replace package admin_rel
+as
+
+  function new (
+    rel_id              in admin_rels.rel_id%TYPE default null,
+    rel_type            in acs_rels.rel_type%TYPE default 'admin_rel',
+    object_id_one       in acs_rels.object_id_one%TYPE,
+    object_id_two       in acs_rels.object_id_two%TYPE,
+    member_state        in membership_rels.member_state%TYPE default 'approved',
+    creation_user       in acs_objects.creation_user%TYPE default null,
+    creation_ip         in acs_objects.creation_ip%TYPE default null
+  ) return admin_rels.rel_id%TYPE;
+
+  procedure delete (
+    rel_id      in admin_rels.rel_id%TYPE
+  );
+
+end admin_rel;
+/
+show errors
+
+
 create or replace package acs_group
 is
  function new (