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.6.6.1 -r1.6.6.2
--- openacs-4/packages/calendar-portlet/www/calendar-list-portlet.tcl	9 Aug 2004 22:18:16 -0000	1.6.6.1
+++ openacs-4/packages/calendar-portlet/www/calendar-list-portlet.tcl	2 Jun 2005 08:58:44 -0000	1.6.6.2
@@ -55,7 +55,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/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.70.2.2.4.2 -r1.70.2.2.4.3
--- openacs-4/packages/dotlrn-calendar/tcl/dotlrn-calendar-procs.tcl	12 Aug 2004 07:06:32 -0000	1.70.2.2.4.2
+++ openacs-4/packages/dotlrn-calendar/tcl/dotlrn-calendar-procs.tcl	2 Jun 2005 08:58:44 -0000	1.70.2.2.4.3
@@ -313,7 +313,7 @@
     @creation-date 2004-08-12
 } {
     # reverse the things done by add_user
-    set calendar_id [calendar_have_private_p -return_id 1 $user_id]
+    set calendar_id [calendar::have_private_p -return_id 1 -party_id $user_id]
     
     if {$calendar_id} {
         calendar::get -calendar_id $calendar_id -array calendar_info