Index: openacs-4/packages/calendar/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/index.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/calendar/www/index.tcl	23 Jan 2002 08:11:16 -0000	1.3
+++ openacs-4/packages/calendar/www/index.tcl	11 Feb 2002 06:07:39 -0000	1.4
@@ -10,7 +10,8 @@
 } {
     {view day}
     {action view}
-    {date now}
+    {date ""}
+    {julian_date ""}
     {calendar_list:multiple,optional {}}
     {return_url ""}
 } -properties {
@@ -21,6 +22,13 @@
     view:onevalue
 }
 
+if {[empty_string_p $date]} {
+    if {[empty_string_p $julian_date]} {
+        set date now
+    } else {
+        set date [db_string select_from_julian "select to_date(:julian_date ,'J') from dual"]
+    }
+}
 
 # find out the user_id 
 set user_id [ad_verify_and_get_user_id]