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.33 -r1.34
--- openacs-4/packages/calendar-portlet/www/calendar-full-portlet.tcl	13 Jan 2005 13:56:58 -0000	1.33
+++ openacs-4/packages/calendar-portlet/www/calendar-full-portlet.tcl	2 May 2005 12:45:03 -0000	1.34
@@ -57,7 +57,7 @@
 }
 
 if {[llength $list_of_calendar_ids] > 1} {
-    set force_calendar_id [calendar::have_private_p -return_id 1 -calendar_id_list $list_of_calendar_ids [ad_conn user_id]]
+    set force_calendar_id [calendar::have_private_p -return_id 1 -calendar_id_list $list_of_calendar_ids -party_id [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.27 -r1.28
--- openacs-4/packages/calendar-portlet/www/calendar-portlet.tcl	18 Feb 2004 23:26:07 -0000	1.27
+++ openacs-4/packages/calendar-portlet/www/calendar-portlet.tcl	2 May 2005 12:45:03 -0000	1.28
@@ -54,7 +54,7 @@
 }
 
 if {[llength $list_of_calendar_ids] > 1} {
-    set force_calendar_id [calendar::have_private_p -return_id 1 -calendar_id_list $list_of_calendar_ids [ad_conn user_id]]
+    set force_calendar_id [calendar::have_private_p -return_id 1 -calendar_id_list $list_of_calendar_ids -party_id [ad_conn user_id]]
 } else {
     set force_calendar_id [lindex $list_of_calendar_ids 0]
 }