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.22.2.2 -r1.22.2.3
--- openacs-4/packages/calendar/www/view-list-display.tcl	13 May 2004 15:39:37 -0000	1.22.2.2
+++ openacs-4/packages/calendar/www/view-list-display.tcl	1 Jun 2004 17:14:49 -0000	1.22.2.3
@@ -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]} {