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.1 -r1.2
--- openacs-4/packages/calendar-portlet/www/calendar-full-portlet.tcl 11 Feb 2002 03:48:42 -0000 1.1
+++ openacs-4/packages/calendar-portlet/www/calendar-full-portlet.tcl 11 Feb 2002 05:00:52 -0000 1.2
@@ -4,33 +4,66 @@
@author Arjun Sanyal (arjun@openforce.net)
@cvs_id $Id$
+} {
+ {view ""}
+ {page_num ""}
+ {date ""}
+ {julian_date ""}
} -properties {
}
# get stuff out of the config array
array set config $cf
-set view $config(default_view)
+if {[empty_string_p $view]} {
+ set view $config(default_view)
+}
set list_of_calendar_ids $config(calendar_id)
# set up some vars
-set date [ns_queryget date]
if {[empty_string_p $date]} {
- set date [dt_sysdate]
+ if {[empty_string_p $julian_date]} {
+ set date [dt_sysdate]
+ } else {
+ set date [db_string select_from_julian "select to_date(:julian_date ,'J') from dual"]
+ }
}
+
set current_date $date
set date_format "YYYY-MM-DD HH24:MI"
-# big switch on the view var
-if { $view == "day" } {
-
+set cal_nav [dt_widget_calendar_navigation "" $view $date "page_num=$page_num"]
+
+if {$view == "day"} {
set cal_stuff [calendar::one_day_display \
-item_template {$item} \
-hour_template "\$hour" \
-date $current_date -start_hour 7 -end_hour 22 \
-calendar_id_list $list_of_calendar_ids]
-
+}
+
+if {$view == "week"} {
+ set cal_stuff [calendar::one_week_display \
+ -item_template {$item} \
+ -date $current_date \
+ -calendar_id_list $list_of_calendar_ids]
}
+if {$view == "month"} {
+ set cal_stuff [calendar::one_month_display \
+ -item_template {$item} \
+ -day_template "\$day_number" \
+ -date $current_date \
+ -item_add_template "ADD" \
+ -calendar_id_list $list_of_calendar_ids]
+}
+if {$view == "list"} {
+ set cal_stuff "This will eventually just list the items for today"
+}
+
+if {$view == "year"} {
+ set cal_stuff "yeah, this view is boring"
+}
+
ad_return_template