Index: openacs-4/packages/calendar/tcl/calendar-display-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/tcl/Attic/calendar-display-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/calendar/tcl/calendar-display-procs.tcl	11 Feb 2002 20:39:57 -0000	1.4
+++ openacs-4/packages/calendar/tcl/calendar-display-procs.tcl	6 Mar 2002 00:20:24 -0000	1.5
@@ -166,6 +166,7 @@
 
         set hour {$display_hour}
         set start_time {$hour}
+        set end_time {$next_hour}
         
         set hour_template [subst $hour_template]
         
Index: openacs-4/packages/calendar/www/cal-item-create.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/Attic/cal-item-create.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/calendar/www/cal-item-create.tcl	12 Feb 2002 14:13:57 -0000	1.5
+++ openacs-4/packages/calendar/www/cal-item-create.tcl	6 Mar 2002 00:20:24 -0000	1.6
@@ -10,6 +10,7 @@
 } {
     {view day}
     {action view}
+    {no_time_p ""}
     {event_date:array}
     {start_time:array}
     {end_time:array}
@@ -29,11 +30,17 @@
 # extract the time info 
 #
 
-set start_datetime [calendar_make_datetime [array get event_date] [array get start_time]]
+if {$no_time_p == 1} {
+    set no_time(hour) 0
+    set no_time(minute) 0
+    set start_datetime [calendar_make_datetime [array get event_date] [array get no_time]]
+    set end_datetime [calendar_make_datetime [array get event_date] [array get no_time]]
+} else {
+    set start_datetime [calendar_make_datetime [array get event_date] [array get start_time]]
+    set end_datetime [calendar_make_datetime [array get event_date] [array get end_time]]
+}
 
-set end_datetime [calendar_make_datetime [array get event_date] [array get end_time]]
 
-
 #-----------------------------------------------------------------
 # validate time interval ( start_time <= end_time )
 
Index: openacs-4/packages/calendar/www/cal-item.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/Attic/cal-item.adp,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/calendar/www/cal-item.adp	5 Mar 2002 23:55:42 -0000	1.6
+++ openacs-4/packages/calendar/www/cal-item.adp	6 Mar 2002 00:20:24 -0000	1.7
@@ -44,6 +44,11 @@
 
 
   <tr>
+    <td></td><td valign=top align=left>
+      <INPUT CHECKED TYPE=radio name=no_time_p value=0>Use Hours Below &nbsp; &nbsp; <INPUT TYPE=radio name=no_time_p value=1>No Time
+    </td>
+</tr>
+<tr>
     <td valign=top align=right> 
       <b>Start Time</b>
     </td>
@@ -106,7 +111,7 @@
 
 
   <tr>
-    <td valign=top colspan=2 align=right>
+    <td valign=top colspan=2 align=left>
       <if @edit_p@ eq 1>
         <if @action@ eq add>
         <input type=submit value="Add Item <if @force_calendar_id@ not nil>to @force_calendar_name@</if>">
@@ -115,7 +120,6 @@
         <input type=submit value="Edit Item">
         </else>
       </if>
-    </td>
     </form>
 
    <if @delete_p@ eq 1> 
@@ -126,7 +130,6 @@
 	  <input type=hidden name=cal_item_id value=@cal_item_id@>
 	  <td valign=top align=left>
             <input type=submit value=delete>
-          </td>
         </form>
       </if>
    </if>