Index: openacs-4/packages/calendar-portlet/www/calendar-admin-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-portlet/www/calendar-admin-portlet.tcl,v
diff -u -r1.3 -r1.3.16.1
--- openacs-4/packages/calendar-portlet/www/calendar-admin-portlet.tcl	9 Aug 2002 18:39:31 -0000	1.3
+++ openacs-4/packages/calendar-portlet/www/calendar-admin-portlet.tcl	3 Mar 2007 19:17:31 -0000	1.3.16.1
@@ -21,6 +21,8 @@
     @author Arjun Sanyal (arjun@openforce.net)
     @author Ben Adida (ben@openforce.net)
     @cvs_id $Id$
+} {
+    {period_days:optional}
 } -properties {
     
 }
@@ -30,6 +32,15 @@
 set view $config(default_view)
 set list_of_calendar_ids $config(calendar_id)
 
+set calendar_id [lindex $list_of_calendar_ids 0]
+db_0or1row select_calendar_package_id {select package_id from calendars where calendar_id=:calendar_id}
+
+if { ![info exists period_days] } {
+    set period_days [parameter::get -package_id $package_id -parameter ListView_DefaultPeriodDays]
+} else {
+    parameter::set_value -package_id $package_id -parameter ListView_DefaultPeriodDays -value $period_days
+}
+
 if {[llength $list_of_calendar_ids] > 1} {
     return -code error "shouldn't be more than one calendar in admin!"
 }