Index: openacs-4/packages/dotlrn/tcl/community-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/community-procs.tcl,v
diff -u -r1.234.2.21 -r1.234.2.22
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl	24 Feb 2021 16:45:31 -0000	1.234.2.21
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl	18 Oct 2021 11:56:46 -0000	1.234.2.22
@@ -2085,6 +2085,10 @@
 
             # mark the community as archived
             db_dml update_archive_p {}
+
+            # execute package-specific code for this proc via callback
+            callback dotlrn_community::archive \
+                -community_id $community_id
         }
     }
 
@@ -2107,6 +2111,10 @@
                 -op AddUserToCommunity \
                 -list_args [list $community_id $user_id]
         }
+
+        # execute package-specific code for this proc via callback
+        callback dotlrn_community::unarchive \
+            -community_id $community_id
     }
 
     ad_proc -public nuke {