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 -r1.28 -r1.29
--- openacs-4/packages/calendar/www/cal-item-new.tcl	16 Aug 2006 17:52:14 -0000	1.28
+++ openacs-4/packages/calendar/www/cal-item-new.tcl	26 Aug 2006 00:50:19 -0000	1.29
@@ -21,6 +21,7 @@
 
 set package_id [ad_conn package_id]
 set user_id [ad_conn user_id]
+set js ""
 
 if {![info exists item_type_id]} {
     set item_type_id ""
@@ -177,6 +178,7 @@
 	set start_hour $start_time
 	set start_time "{} {} {} 0 0 {} {HH24:MI}"
 	set end_time "{} {} {} 0 0 {} {HH24:MI}"
+        set js "disableTime('cal_item');"
     }
     # set the calendar_id before setting item_types form element (see top of script) DAVEB
     set calendar_id [lindex [lindex $calendar_options 0] 1]
@@ -201,6 +203,10 @@
     set calendar_id $cal_item(calendar_id)
     set time_p $cal_item(time_p)
 
+    if { $time_p == 0 } {
+	set js "disableTime('cal_item');"
+    }
+
     if { [empty_string_p $repeat_p] } {
         set repeat_p 0
     } else {