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 " \"Add" } 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 "\"back" \ + -next_nav_template "\"forward" \ -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 "\"Add\$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 "\"back" \ + -next_week_template "\"forward" \ -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 "\"back" \ + -next_month_template "\"forward" \ -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 + + + + + + + +