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] }