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 -r1.21.2.1 -r1.21.2.2
--- openacs-4/packages/calendar-portlet/www/calendar-full-portlet.tcl	17 Oct 2002 09:39:37 -0000	1.21.2.1
+++ openacs-4/packages/calendar-portlet/www/calendar-full-portlet.tcl	6 Mar 2003 15:17:19 -0000	1.21.2.2
@@ -44,7 +44,7 @@
 }
 
 if {[llength $list_of_calendar_ids] > 1} {
-    set force_calendar_id [calendar_have_private_p -return_id 1 [ad_conn user_id]]
+    set force_calendar_id [calendar_have_private_p -return_id 1 -calendar_id_list $list_of_calendar_ids [ad_conn user_id]]
 } else {
     set force_calendar_id [lindex $list_of_calendar_ids 0]
 }
Index: openacs-4/packages/calendar-portlet/www/calendar-list-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-portlet/www/calendar-list-portlet.tcl,v
diff -u -r1.2.2.1 -r1.2.2.2
--- openacs-4/packages/calendar-portlet/www/calendar-list-portlet.tcl	17 Oct 2002 09:39:37 -0000	1.2.2.1
+++ openacs-4/packages/calendar-portlet/www/calendar-list-portlet.tcl	6 Mar 2003 15:17:19 -0000	1.2.2.2
@@ -45,7 +45,7 @@
 }
 
 if {[llength $list_of_calendar_ids] > 1} {
-    set force_calendar_id [calendar_have_private_p -return_id 1 [ad_conn user_id]]
+    set force_calendar_id [calendar_have_private_p -return_id 1 -calendar_id_list $list_of_calendar_ids [ad_conn user_id]]
 } else {
     set force_calendar_id [lindex $list_of_calendar_ids 0]
 }
Index: openacs-4/packages/calendar-portlet/www/calendar-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-portlet/www/calendar-portlet.tcl,v
diff -u -r1.18 -r1.18.2.1
--- openacs-4/packages/calendar-portlet/www/calendar-portlet.tcl	9 Aug 2002 18:39:31 -0000	1.18
+++ openacs-4/packages/calendar-portlet/www/calendar-portlet.tcl	6 Mar 2003 15:17:19 -0000	1.18.2.1
@@ -40,7 +40,7 @@
 }
 
 if {[llength $list_of_calendar_ids] > 1} {
-    set force_calendar_id [calendar_have_private_p -return_id 1 [ad_conn user_id]]
+    set force_calendar_id [calendar_have_private_p -return_id 1 -calendar_id_list $list_of_calendar_ids [ad_conn user_id]]
 } else {
     set force_calendar_id [lindex $list_of_calendar_ids 0]
 }