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.4 -r1.5
--- openacs-4/packages/calendar-portlet/www/calendar-list-portlet.tcl	29 May 2003 18:05:21 -0000	1.4
+++ openacs-4/packages/calendar-portlet/www/calendar-list-portlet.tcl	26 Sep 2003 09:46:42 -0000	1.5
@@ -25,6 +25,7 @@
     {page_num ""}
     {date ""}
     {julian_date ""}
+    {period_days 30}
     {sort_by ""}
 } -properties {
     
@@ -87,15 +88,7 @@
 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" \
-        -url_stub_callback "calendar_portlet_display::get_url_stub" \
-        -show_calendar_name_p $show_calendar_name_p]
+set url_template "?view=list&sort_by=\$order_by&page_num=$page_num" 
+set url_stub_callback "calendar_portlet_display::get_url_stub" 
 
 ad_return_template