Index: openacs-4/packages/calendar/www/view-one-day-display.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/view-one-day-display.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/calendar/www/view-one-day-display.tcl	22 Jul 2003 15:32:06 -0000	1.3
+++ openacs-4/packages/calendar/www/view-one-day-display.tcl	26 Jul 2003 21:22:49 -0000	1.4
@@ -7,17 +7,9 @@
     set date [dt_sysdate]
 }
 set current_date $date
+set package_id [ad_conn package_id]
+set user_id [ad_conn user_id]
 
-# The following code is original code which I don't really grasp yet. (Dirk)
-# ----------------------
-# 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 {[empty_string_p $calendar_id_list]} {
-    set calendar_id_list [list [calendar_have_private_p -return_id 1 [ad_get_user_id]]]
-}
-# ----------------------
-
 # Loop through the calendars
 multirow create day_items_without_time name status_summary item_id calendar_name