Index: openacs-4/packages/calendar/www/view-month-display.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/view-month-display.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/calendar/www/view-month-display.tcl	21 Jul 2003 19:21:36 -0000	1.2
+++ openacs-4/packages/calendar/www/view-month-display.tcl	26 Jul 2003 21:22:49 -0000	1.3
@@ -5,15 +5,8 @@
 }
 dt_get_info $date
 
-# If we were given no calendars, we assume we display the private calendar. It
-# makes no sense for this to be called with no data whatsoever.
-
-if {![info exists calendar_id_list] || [empty_string_p $calendar_id_list]} {
-    set calendar_id_list [list [calendar_have_private_p -return_id 1 [ad_get_user_id]]]
-}
-        
-
-
+set package_id [ad_conn package_id]
+set user_id [ad_conn user_id]
 set today_date [dt_sysdate]    
 set next_month_url "<a href=\"view?calendar_list=&view=month&date=[ad_urlencode $next_month]\">"
 set prev_month_url "<a href=\"view?calendar_list=&view=month&date=[ad_urlencode $prev_month]\">"
@@ -63,6 +56,7 @@
     multirow append days_of_a_month $name $item_id [dt_julian_to_ansi $current_day] $ansi_start_time $display_information(day_number) $calendar_name $display_information(beginning_of_week_p) $display_information(end_of_week_p) $display_information(today_p)  f 
 }
 
+
 for {} {$current_day <= $last_julian_date_in_month} {incr current_day} {
     array set display_information [calendar::get_month_multirow_information -current_day $current_day -today_julian_date $today_julian_date -first_julian_date_of_month $first_julian_date_of_month]
     multirow append days_of_a_month "" "" [dt_julian_to_ansi $current_day] "" $display_information(day_number) "" $display_information(beginning_of_week_p) $display_information(end_of_week_p) $display_information(today_p) f