Index: openacs-4/packages/calendar-portlet/www/calendar-full-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-portlet/www/calendar-full-portlet.tcl,v
diff -u -N -r1.44.2.2 -r1.44.2.3
--- openacs-4/packages/calendar-portlet/www/calendar-full-portlet.tcl	2 Sep 2021 16:40:53 -0000	1.44.2.2
+++ openacs-4/packages/calendar-portlet/www/calendar-full-portlet.tcl	13 Oct 2022 11:05:51 -0000	1.44.2.3
@@ -61,10 +61,8 @@
 
 # set the period_days for calendar's list view, therefore, we need
 # to check which instance of calendar is currently displayed
-if {[apm_package_installed_p dotlrn]} {
-    set site_node [site_node::get_node_id_from_object_id -object_id [ad_conn package_id]]
-    set dotlrn_package_id [site_node::closest_ancestor_package -node_id $site_node -package_key dotlrn -include_self]
-    set community_id [db_string get_community_id {select community_id from dotlrn_communities_all where package_id=:dotlrn_package_id} -default ""]
+if { [namespace which ::dotlrn_community::get_community_id] ne "" } {
+    set community_id [dotlrn_community::get_community_id -package_id [ad_conn package_id]]
 } else {
     set community_id ""
 }