Index: openacs-4/packages/acs-kernel/sql/postgresql/groups-body-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-kernel/sql/postgresql/groups-body-create.sql,v
diff -u -r1.36.2.5 -r1.36.2.6
--- openacs-4/packages/acs-kernel/sql/postgresql/groups-body-create.sql	14 Mar 2020 19:06:24 -0000	1.36.2.5
+++ openacs-4/packages/acs-kernel/sql/postgresql/groups-body-create.sql	10 Feb 2023 19:07:31 -0000	1.36.2.6
@@ -834,6 +834,30 @@
 $$ LANGUAGE plpgsql;
 
 
+-- procedure expire
+
+
+-- added
+select define_function_args('membership_rel__expire','rel_id');
+
+--
+-- procedure membership_rel__expire/1
+--
+CREATE OR REPLACE FUNCTION membership_rel__expire(
+   expire__rel_id integer
+) RETURNS integer AS $$
+DECLARE
+BEGIN
+    update membership_rels
+    set member_state = 'expired'
+    where rel_id = expire__rel_id;
+
+    return 0;
+END;
+$$ LANGUAGE plpgsql;
+
+
+
 -- procedure deleted