Index: openacs-4/packages/calendar-portlet/www/calendar-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-portlet/www/calendar-portlet.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/calendar-portlet/www/calendar-portlet.tcl	17 Jan 2002 22:16:59 -0000	1.1
+++ openacs-4/packages/calendar-portlet/www/calendar-portlet.tcl	22 Jan 2002 04:10:12 -0000	1.2
@@ -22,28 +22,9 @@
 
 # big switch on the view var
 if { $view == "day" } {
-
-#
-#create table hours_of_the_day (
-#pretty_start_date char(5),
-#pretty_end_date char(5)
-#);
-#
-#insert into hours_of_the_day (pretty_start_date, pretty_end_date) values ('00:00', '00:59');
-#insert into hours_of_the_day (pretty_start_date, pretty_end_date) values ('01:00', '01:59');
-#insert into hours_of_the_day (pretty_start_date, pretty_end_date) values ('02:00', '02:59');
-#insert into hours_of_the_day (pretty_start_date, pretty_end_date) values ('03:00', '03:59');
-#insert into hours_of_the_day (pretty_start_date, pretty_end_date) values ('04:00', '04:59');
-#insert into hours_of_the_day (pretty_start_date, pretty_end_date) values ('05:00', '05:59');
-#insert into hours_of_the_day (pretty_start_date, pretty_end_date) values ('06:00', '06:59');
-#insert into hours_of_the_day (pretty_start_date, pretty_end_date) values ('07:00', '07:59');
-#insert into hours_of_the_day (pretty_start_date, pretty_end_date) values ('08:00', '08:59');
-#insert into hours_of_the_day (pretty_start_date, pretty_end_date) values ('09:00', '09:59');
-#
-#
-    set list_of_calendar_ids [join $list_of_calendar_ids ", "]
-   
-    db_multirow -local foo select_day_items "" {}
+    
+    set cal_stuff [calendar::one_day_display -date $current_date]
+    
 }