Index: openacs-4/packages/dotlrn-calendar/tcl/dotlrn-calendar-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-calendar/tcl/dotlrn-calendar-procs.tcl,v
diff -u -r1.85.2.6 -r1.85.2.7
--- openacs-4/packages/dotlrn-calendar/tcl/dotlrn-calendar-procs.tcl	4 Oct 2022 15:43:37 -0000	1.85.2.6
+++ openacs-4/packages/dotlrn-calendar/tcl/dotlrn-calendar-procs.tcl	4 Oct 2022 16:00:54 -0000	1.85.2.7
@@ -174,6 +174,24 @@
     # Here we create the calendar
     set calendar_id [calendar_create_helper -community_id $community_id -package_id $package_id]
 
+    #
+    # Administrators of the parent community should also be able to
+    # administer this applet in the child community.
+    #
+    set parent_community_admins [db_string get_admins {
+        select segment_id from rel_segments
+         where group_id = (select parent_community_id
+                             from dotlrn_communities_all
+                            where community_id = :community_id)
+           and rel_type = 'dotlrn_admin_rel'
+    } -default ""]
+    if { $parent_community_admins ne ""} {
+        permission::grant \
+            -party_id $parent_community_admins \
+            -object_id $package_id \
+            -privilege "admin"
+    }
+
     # Here we have both the calendar ID and the node ID
     # We associate content using portal mapping (ben)
     # This SHOULD NOT work, but it does cause we're