Index: openacs-4/packages/acs-datetime/tcl/acs-calendar-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-datetime/tcl/acs-calendar-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-datetime/tcl/acs-calendar-procs.tcl	30 Aug 2001 01:04:51 -0000	1.3
+++ openacs-4/packages/acs-datetime/tcl/acs-calendar-procs.tcl	11 Feb 2002 07:09:23 -0000	1.4
@@ -547,6 +547,17 @@
 	set date [dt_sysdate]
     }
 
+
+    # Ben: some annoying stuff to do here since we are passing in things in GET format already
+    if {![empty_string_p $pass_in_vars]} {
+        set vars [split $pass_in_vars "&"]
+        set list_of_vars [list]
+        foreach var $vars {
+            set things [split $var "="]
+            lappend list_of_vars $things
+        }
+    }
+
     # Get the current month, day, and the first day of the month
 
     dt_get_info $date
@@ -725,8 +736,20 @@
     <table cellspacing=0 cellpadding=1 border=0 bgcolor=lavender>
     <td><td>
     <font size=-1><a href=\"$today_url\"><font color=blue>
-    <b>Today</b></font></a> is [dt_ansi_to_pretty]</font></td>
+    <b>Today</b></font></a> is [dt_ansi_to_pretty]</font><br>
+    <form method=get action=$base_url>
+    Go to: <INPUT TYPE=text name=date size=10> <INPUT type=submit value=go>
+    <INPUT TYPE=hidden name=view value=day>
+    "
+
+    foreach var $list_of_vars {
+        append output "<INPUT TYPE=hidden name=[lindex $var 0] value=[lindex $var 1]>"
+    }
+    
+    append output "
+    </form>
     </td>
+    </td>
     </tr>
     </table>
     </td>