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.2 -r1.27.2.3
--- openacs-4/packages/calendar/www/view-list-display.tcl	3 Mar 2007 18:51:22 -0000	1.27.2.2
+++ openacs-4/packages/calendar/www/view-list-display.tcl	4 Mar 2007 20:11:35 -0000	1.27.2.3
@@ -221,3 +221,28 @@
     ns_return 200 text/html $print_html
     ad_script_abort
 }
+
+
+set noprocessing_vars [list]
+
+
+    set the_form [ns_getform]
+    if { ![empty_string_p $the_form] } {
+	for { set i 0 } { $i < [ns_set size $the_form] } { incr i } {
+	    set varname [ns_set key $the_form $i]
+	    set varvalue [ns_set value $the_form $i]
+	    if {!($varname eq "period_days") && !([string match "__*" $varname]) && !([string match "form:*" $varname])} {
+		lappend noprocessing_vars [list $varname $varvalue]
+	    }
+	}
+    }
+
+
+ad_form -name frmdays -has_submit 1 -html {style float:right} -export $noprocessing_vars -form {
+    {period_days:integer,optional
+        {label ""}
+        {html {size 3} {maxlength 3} {class "cal-input-field"}}
+        {value "$period_days"}
+        {after_html "[_ calendar.days]"}
+    }
+} -on_submit { }
\ No newline at end of file