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 -N -r1.27.2.1 -r1.27.2.2
--- openacs-4/packages/calendar/www/view-list-display.tcl	9 Feb 2007 16:07:38 -0000	1.27.2.1
+++ openacs-4/packages/calendar/www/view-list-display.tcl	3 Mar 2007 18:51:22 -0000	1.27.2.2
@@ -1,3 +1,13 @@
+if { ![info exists period_days] } {
+    ad_page_contract  {
+     Some documentation.
+     @author Sven Schmitt (s.lrn@gmx.net)
+     @cvs-id $Id$
+    } {
+	{period_days:integer {[parameter::get -parameter ListView_DefaultPeriodDays -default 31]}}
+    }
+}
+
 if {[info exists url_stub_callback]} {
     # This parameter is only set if this file is called from .LRN.
     # This way I make sure that for the time being this adp/tcl
@@ -45,11 +55,12 @@
     set calendars_clause [db_map dbqd.calendar.www.views.openacs_calendar] 
 }
 
-if { ![exists_and_not_null 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 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"]
+#}
+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]} {
     set page_num_formvar [export_form_vars page_num]