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.27.2.3 -r1.27.2.4
--- openacs-4/packages/calendar/www/view-list-display.tcl	4 Mar 2007 20:11:35 -0000	1.27.2.3
+++ openacs-4/packages/calendar/www/view-list-display.tcl	10 Mar 2007 19:44:46 -0000	1.27.2.4
@@ -115,7 +115,8 @@
     description \
     name_style_class \
     description_style_class \
-    container_style_class
+    container_style_class \
+    event_print_url
 
 set last_pretty_start_date ""
 # Loop through the events, and add them
@@ -204,7 +205,8 @@
     $description \
     "calendar-ItemListName" \
     "calendar-ItemListDescription" \
-    "calendar-ItemListContainer"
+    "calendar-ItemListContainer" \
+    "[subst $event_url_template]&export=print"
 }
 
 set start_year [lc_time_fmt $start_date "%Y"]
@@ -216,6 +218,11 @@
 
 set self_url [ad_conn url]
 
+# URLs for period picker
+foreach i {1 7 14 21 30 60} {
+    set period_url_$i "[export_vars -base $self_url -url -entire_form {{period_days $i}}]\#calendar"
+}
+
 if { [info exists export] && [string equal $export print] } {
     set print_html [template::adp_parse [acs_root_dir]/packages/calendar/www/view-print-display [list &items items show_calendar_name_p $show_calendar_name_p]]
     ns_return 200 text/html $print_html