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 -N -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 {
Index: openacs-4/packages/dotlrn/tcl/dotlrn-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/dotlrn-callback-procs.tcl,v
diff -u -N -r1.8 -r1.8.2.1
--- openacs-4/packages/dotlrn/tcl/dotlrn-callback-procs.tcl	15 Aug 2018 16:43:08 -0000	1.8
+++ openacs-4/packages/dotlrn/tcl/dotlrn-callback-procs.tcl	18 Oct 2021 11:56:46 -0000	1.8.2.1
@@ -21,7 +21,30 @@
 
 } -
 
+ad_proc -public -callback dotlrn_community::archive {
+    -community_id
+} {
 
+    Actions to be performed by other packages when a community is archived.
+
+} -
+
+ad_proc -public -callback dotlrn_community::unarchive {
+    -community_id
+} {
+
+    Actions to be performed by other packages when a community is unarchived.
+
+} -
+
+ad_proc -public -callback dotlrn_community::delete {
+    -community_id
+} {
+
+    Actions to be performed by other packages when a community is deleted.
+
+} -
+
 #### Callbacks
 ad_proc -callback merge::MergeShowUserInfo -impl dotlrn {
     -user_id:required
@@ -184,6 +207,8 @@
     
 }
 
+
+
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4