Index: openacs-4/packages/calendar-portlet/www/calendar-list-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-portlet/www/calendar-list-portlet.tcl,v
diff -u -r1.2 -r1.2.2.1
--- openacs-4/packages/calendar-portlet/www/calendar-list-portlet.tcl	9 Aug 2002 18:39:31 -0000	1.2
+++ openacs-4/packages/calendar-portlet/www/calendar-list-portlet.tcl	17 Oct 2002 09:39:37 -0000	1.2.2.1
@@ -74,9 +74,15 @@
 
 set item_template "<a href=\${url_stub}cal-item-view?show_cal_nav=0&return_url=$encoded_return_url&action=edit&cal_item_id=\$item_id>\$item</a>"
 
+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_list [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 "?sort_by=\$order_by&page_num=$page_num" \