Index: openacs-4/packages/calendar/www/view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/view.tcl,v
diff -u -r1.23.2.4 -r1.23.2.5
--- openacs-4/packages/calendar/www/view.tcl	23 May 2007 14:47:00 -0000	1.23.2.4
+++ openacs-4/packages/calendar/www/view.tcl	5 Jul 2007 12:35:53 -0000	1.23.2.5
@@ -53,6 +53,7 @@
     set ansi_day [string trimleft [lindex $ansi_list 2] "0"]
     set end_date [dt_julian_to_ansi [expr [dt_ansi_to_julian $ansi_year $ansi_month $ansi_day ] + $period_days]]
 }
+set calendar_personal_p [calendar::personal_p -calendar_id [lindex [lindex [calendar::calendar_list -package_id $package_id  ] 0] 1] ]
 
 set notification_chunk [notification::display::request_widget \
                             -type calendar_notif \