Index: openacs-4/packages/calendar/tcl/cal-item-2-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/tcl/Attic/cal-item-2-procs.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/calendar/tcl/cal-item-2-procs.tcl	13 Aug 2003 16:08:33 -0000	1.10
+++ openacs-4/packages/calendar/tcl/cal-item-2-procs.tcl	18 Aug 2003 19:41:19 -0000	1.11
@@ -62,13 +62,16 @@
         }
         
         db_1row $query_name {} -column_array row
-        
         # Timezonize
-
-
         set row(start_date_ansi) [lc_time_system_to_conn $row(start_date_ansi)]
         set row(end_date_ansi) [lc_time_system_to_conn $row(end_date_ansi)]
 
+        if { $row(start_date_ansi) ==  $row(end_date_ansi) && [string equal [lc_time_fmt $row(start_date_ansi) "%X" de_DE] "00:00"]} {
+	    set row(time_p) 0
+	} else {
+	    set row(time_p) 1
+	}
+
         # Localize
         set row(start_time) [lc_time_fmt $row(start_date_ansi) "%X"]
 
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.13 -r1.14
--- openacs-4/packages/calendar/www/cal-item-new.tcl	18 Aug 2003 07:32:11 -0000	1.13
+++ openacs-4/packages/calendar/www/cal-item-new.tcl	18 Aug 2003 19:41:19 -0000	1.14
@@ -133,13 +133,8 @@
     set item_type $cal_item(item_type)
     set item_type_id $cal_item(item_type_id)
     set calendar_id $cal_item(calendar_id)
+    set time_p $cal_item(time_p)
 
-    if {[string equal $start_time "12:00 AM"] && [string equal $end_time "12:00 AM"]} {
-        set time_p 0
-    } else {
-        set time_p 1
-    }
-
     if {[empty_string_p $repeat_p]} {
         set repeat_p 0
     } else {