Index: openacs-4/packages/calendar/www/view-list-display.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/view-list-display.tcl,v
diff -u -r1.24 -r1.25
--- openacs-4/packages/calendar/www/view-list-display.tcl	17 May 2004 15:15:00 -0000	1.24
+++ openacs-4/packages/calendar/www/view-list-display.tcl	29 Jun 2004 10:17:52 -0000	1.25
@@ -33,6 +33,7 @@
 if { ![exists_and_not_null start_date] } {
     set start_date [clock format [clock seconds] -format "%Y-%m-%d 00:00"]
 }
+
 if { ![exists_and_not_null end_date] } {
     set end_date [clock format [clock scan "+30 days" -base [clock scan $start_date]] -format "%Y-%m-%d 00:00"]
 }
@@ -45,6 +46,8 @@
 
 if { ![info exists period_days] } {
     set period_days [parameter::get -parameter ListView_DefaultPeriodDays -default 31]
+}  else {
+    set end_date [clock format [clock scan "+${period_days} days" -base [clock scan $start_date]] -format "%Y-%m-%d 00:00"]
 }
 
 if {[exists_and_not_null page_num]} {