Index: openacs-4/packages/calendar/www/mini-calendar.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/mini-calendar.tcl,v
diff -u -N -r1.23.2.3 -r1.23.2.4
--- openacs-4/packages/calendar/www/mini-calendar.tcl	14 Jul 2022 14:49:25 -0000	1.23.2.3
+++ openacs-4/packages/calendar/www/mini-calendar.tcl	27 Jan 2023 14:55:22 -0000	1.23.2.4
@@ -12,7 +12,7 @@
 }
 
 ad_form -name go-to-date -method get -has_submit 1 -action $base_url  \
-    -export [lappend list_of_vars page_num] \
+    -export {page_num} \
     -html {class inline-form} \
     -form {
         {date:text,nospell,optional
@@ -73,8 +73,6 @@
     }
 }
 
-set list_of_vars [list]
-
 # Get the current month, day, and the first day of the month
 dt_get_info $date
 
@@ -220,18 +218,6 @@
     set today_p f
 }
 
-
-set form_vars ""
-foreach var $list_of_vars {
-    append form_vars "<INPUT TYPE=hidden name=[lindex $var 0] value=[lindex $var 1]>"
-}
-
-ad_form -name choose_new_date -show_required_p f -has_edit 0 -has_submit 0 -form {
-    {new_date:date
-        {label ""}
-        {format {MM DD YYYY}}}
-}
-
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4