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.21 -r1.21.2.1
--- openacs-4/packages/calendar-portlet/www/calendar-full-portlet.tcl 9 Aug 2002 18:39:31 -0000 1.21
+++ openacs-4/packages/calendar-portlet/www/calendar-full-portlet.tcl 17 Oct 2002 09:39:37 -0000 1.21.2.1
@@ -70,24 +70,21 @@
set cal_nav [dt_widget_calendar_navigation "" $view $date "page_num=$page_num"]
-if {$create_p} {
- set item_template "\$item"
-} else {
- set item_template "\$item"
-}
+set item_template "\$item"
+
if {$create_p} {
set hour_template "\$hour"
- set item_add_template "ADD"
+ set item_add_template " "
} else {
set hour_template "\$hour"
set item_add_template ""
}
if {$view == "day"} {
set cal_stuff [calendar::one_day_display \
- -prev_nav_template "<" \
- -next_nav_template ">" \
+ -prev_nav_template "" \
+ -next_nav_template "" \
-item_template $item_template \
-hour_template $hour_template \
-date $current_date -start_hour 7 -end_hour 22 \
@@ -99,12 +96,12 @@
if {$view == "week"} {
set cal_stuff [calendar::one_week_display \
-item_template $item_template \
- -day_template "\$day - \$pretty_date (Add Item)" \
+ -day_template "\$day - \$pretty_date" \
-date $current_date \
-calendar_id_list $list_of_calendar_ids \
-url_stub_callback "calendar_portlet_display::get_url_stub" \
- -prev_week_template "<" \
- -next_week_template ">" \
+ -prev_week_template "" \
+ -next_week_template "" \
-show_calendar_name_p $show_calendar_name_p
]
}
@@ -117,17 +114,23 @@
-item_add_template "$item_add_template" \
-calendar_id_list $list_of_calendar_ids \
-url_stub_callback "calendar_portlet_display::get_url_stub" \
- -prev_month_template "<" \
- -next_month_template ">" \
+ -prev_month_template "" \
+ -next_month_template "" \
-show_calendar_name_p $show_calendar_name_p]
}
if {$view == "list"} {
set sort_by [ns_queryget sort_by]
+ set thirty_days [expr 60*60*24*30]
+ set start_date [ns_fmttime [expr [ns_time] - $thirty_days] "%Y-%m-%d 00:00"]
+ set end_date [ns_fmttime [expr [ns_time] + $thirty_days] "%Y-%m-%d 00:00"]
+
set cal_stuff [calendar::list_display \
-item_template $item_template \
-date $current_date \
+ -start_date $start_date \
+ -end_date $end_date \
-calendar_id_list $list_of_calendar_ids \
-sort_by $sort_by \
-url_template "?view=list&sort_by=\$order_by&page_num=$page_num" \
@@ -140,3 +143,11 @@
}
ad_return_template
+
+
+
+
+
+
+
+