Index: openacs-4/packages/calendar/www/cal-item-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/cal-item-new.tcl,v
diff -u -N -r1.10 -r1.11
--- openacs-4/packages/calendar/www/cal-item-new.tcl	26 Jul 2003 20:55:11 -0000	1.10
+++ openacs-4/packages/calendar/www/cal-item-new.tcl	11 Aug 2003 12:14:16 -0000	1.11
@@ -27,10 +27,9 @@
         ad_script_abort
     }
 
-    set calendar_id [lindex $calendar_list 0]
+    set calendar_id [lindex [lindex $calendar_list 0] 1]
 }
 
-
 # Create the form
 form create cal_item
 
@@ -44,7 +43,7 @@
         -label "[_ calendar.Date_1]" -datatype date -widget date
 
 element create cal_item time_p \
-        -label " " -datatype text -widget radio -options [list [list "[_ calendar.All_Day_Event]" 0] [list "[_ calendar.Use_Hours_Below]" 1]]
+        -label " " -datatype text -widget radio -html {onchange "javascript:TimePChanged();"} -options [list [list "[_ calendar.All_Day_Event]" 0] [list "[_ calendar.Use_Hours_Below]" 1]]
 
 element create cal_item start_time \
         -label "[_ calendar.Start_Time]" -datatype date -widget date \