Index: openacs-4/packages/acs-tcl/tcl/membership-rel-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/membership-rel-procs.tcl,v
diff -u -r1.11.2.2 -r1.11.2.3
--- openacs-4/packages/acs-tcl/tcl/membership-rel-procs.tcl	21 Jul 2020 14:02:08 -0000	1.11.2.2
+++ openacs-4/packages/acs-tcl/tcl/membership-rel-procs.tcl	10 Feb 2023 19:07:31 -0000	1.11.2.3
@@ -42,6 +42,7 @@
                 }
                 "needs approval" { db_exec_plsql unapprove {} }
                 "merged" { db_exec_plsql merge {} }
+                "expired" { db_exec_plsql expire {} }
             }
 
             # Record who changed the state
@@ -103,6 +104,14 @@
         change_state -rel_id $rel_id -state "needs approval"
     }
 
+    ad_proc -public expire {
+        {-rel_id:required}
+    } {
+       Expire a membership relation
+    } {
+        change_state -rel_id $rel_id -state "expired"
+    }
+
     ad_proc -public get {
         {-rel_id:required}
     } {