Index: openacs-4/packages/calendar/www/cal-item.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/Attic/cal-item.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/calendar/www/cal-item.tcl	23 Jan 2002 08:11:16 -0000	1.4
+++ openacs-4/packages/calendar/www/cal-item.tcl	11 Feb 2002 06:07:39 -0000	1.5
@@ -9,7 +9,8 @@
     @cvs-id $Id$
 } {
     {action add}
-    {date now}
+    {date ""}
+    {julian_date ""}
     {cal_item_id 0}
     {start_time "now"}
     {end_time "now"}
@@ -31,6 +32,14 @@
     calendars:multirow
 
 }
+
+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