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.13 -r1.14
--- openacs-4/packages/acs-kernel/sql/oracle/groups-create.sql	7 Aug 2017 23:47:56 -0000	1.13
+++ openacs-4/packages/acs-kernel/sql/oracle/groups-create.sql	3 Sep 2024 15:37:33 -0000	1.14
@@ -32,7 +32,7 @@
 			constraint mr_member_state_nn not null
                         constraint mr_member_state_ck
                         check (member_state in ('merged','approved', 'needs approval',
-                                              'banned', 'rejected', 'deleted'))
+                                              'banned', 'rejected', 'deleted', 'expired'))
 );
 
 create table admin_rels (
@@ -100,8 +100,8 @@
 
  acs_rel_type.create_type (
    rel_type => 'membership_rel',
-   pretty_name => 'Membership Relation',
-   pretty_plural => 'Membership Relationships',
+   pretty_name => '#acs-kernel.Membership_Relation#',
+   pretty_plural => '#acs-kernel.lt_Membership_Relationsh#',
    table_name => 'membership_rels',
    id_column => 'rel_id',
    package_name => 'membership_rel',
@@ -116,8 +116,8 @@
 
  acs_rel_type.create_type (
    rel_type => 'admin_rel',
-   pretty_name => 'Administrator Relation',
-   pretty_plural => 'Administrator Relationships',
+   pretty_name => '#acs-kernel.lt_Administrator_Relatio#',
+   pretty_plural => '#acs-kernel.lt_Administrator_Relatio_1#',
    supertype => 'membership_rel',
    table_name => 'admin_rels',
    id_column => 'rel_id',
@@ -269,6 +269,7 @@
 create index group_elem_idx_element_idx on group_element_index (element_id);
 create index group_elem_idx_rel_id_idx on group_element_index (rel_id);
 create index group_elem_idx_rel_type_idx on group_element_index (rel_type);
+create index group_elem_idx_container_idx on group_element_index(container_id);
 
 -- The index on container_id is not very good
 -- and in some cases can be quite detrimental
@@ -477,6 +478,10 @@
     rel_id      in membership_rels.rel_id%TYPE
   );
 
+  procedure expire (
+    rel_id      in membership_rels.rel_id%TYPE
+  );
+
   procedure del (
     rel_id      in membership_rels.rel_id%TYPE
   );