Index: openacs-4/packages/calendar/tcl/cal-item-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/tcl/cal-item-procs.tcl,v
diff -u -N -r1.6 -r1.7
--- openacs-4/packages/calendar/tcl/cal-item-procs.tcl	25 Apr 2002 16:42:26 -0000	1.6
+++ openacs-4/packages/calendar/tcl/cal-item-procs.tcl	26 Apr 2002 19:51:07 -0000	1.7
@@ -323,4 +323,3 @@
     }
 }
         
-        
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 -N -r1.15 -r1.16
--- openacs-4/packages/calendar/tcl/calendar-display-procs.tcl	16 Apr 2002 05:30:24 -0000	1.15
+++ openacs-4/packages/calendar/tcl/calendar-display-procs.tcl	26 Apr 2002 19:51:07 -0000	1.16
@@ -199,7 +199,7 @@
                     set item_details "$calendar_name - $item_type"
                 }
 
-                if {$pretty_start_date == "00:00 AM" && $pretty_end_date == "00:00 AM"} {
+                if {[dt_no_time_p -start_time $pretty_start_date -end_time $pretty_end_date} {
                     # Hack for no-time items
                     set item "$name ($item_details)"
                     set ns_set_pos "X"
Index: openacs-4/packages/calendar/www/cal-item-view.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/cal-item-view.adp,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/calendar/www/cal-item-view.adp	25 Apr 2002 21:30:53 -0000	1.4
+++ openacs-4/packages/calendar/www/cal-item-view.adp	26 Apr 2002 19:51:07 -0000	1.5
@@ -22,7 +22,7 @@
     <td valign=top> 
     <table>
     <tr><td colspan=2><blockquote>@description@</blockquote></td></tr>
-    <tr><th align=right>Date and Time:</th><td><a href="./?calendar_id=@calendar_id@&view=day&show_cal_nav=@show_cal_nav@&date=@raw_start_date@">@item_data.start_date@</a>, from @item_data.start_time@ to @item_data.end_time@</td></tr>
+    <tr><th align=right>Date<if @item_data.no_time_p@ eq 0>and Time</if>:</th><td><a href="./?calendar_id=@calendar_id@&view=day&show_cal_nav=@show_cal_nav@&date=@raw_start_date@">@item_data.start_date@</a><if @item_data.no_time_p@ eq 0>, from @item_data.start_time@ to @item_data.end_time@</if></td></tr>
     <tr><th align=right>Title:</th><td>@item_data.name@</td></tr>
     <tr><th align=right>Type:</th><td>@item_data.item_type@</td></tr>
     </table>
Index: openacs-4/packages/calendar/www/cal-item-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/cal-item-view.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/calendar/www/cal-item-view.tcl	25 Apr 2002 16:42:26 -0000	1.2
+++ openacs-4/packages/calendar/www/cal-item-view.tcl	26 Apr 2002 19:51:07 -0000	1.3
@@ -58,6 +58,8 @@
 set item_data(description) $description
 set item_data(item_type) $item_type
 
+# no time?
+set item_data(no_time_p) [dt_no_time_p -start_time $start_time -end_time $end_time]
 
 ad_return_template 
 
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 -N -r1.11 -r1.12
--- openacs-4/packages/calendar/www/cal-item.adp	16 Apr 2002 05:30:24 -0000	1.11
+++ openacs-4/packages/calendar/www/cal-item.adp	26 Apr 2002 19:51:07 -0000	1.12
@@ -47,7 +47,7 @@
 
   <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
+      <INPUT <if @no_time_p@ eq 0>CHECKED</if> TYPE=radio name=no_time_p value=0>Use Hours Below &nbsp; &nbsp; <INPUT <if @no_time_p@ eq 1>CHECKED</if> TYPE=radio name=no_time_p value=1>No Time
     </td>
 </tr>
 <tr>
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 -N -r1.10 -r1.11
--- openacs-4/packages/calendar/www/cal-item.tcl	16 Apr 2002 05:30:24 -0000	1.10
+++ openacs-4/packages/calendar/www/cal-item.tcl	26 Apr 2002 19:51:07 -0000	1.11
@@ -141,6 +141,8 @@
 
 }
 
+set no_time_p [dt_no_time_p -start_time $start_time -end_time $end_time]
+
 ad_return_template