Index: openacs-4/packages/calendar/www/view-week-display.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/view-week-display.tcl,v
diff -u -r1.30 -r1.31
--- openacs-4/packages/calendar/www/view-week-display.tcl	20 Mar 2018 08:49:09 -0000	1.30
+++ openacs-4/packages/calendar/www/view-week-display.tcl	23 Apr 2018 12:42:01 -0000	1.31
@@ -70,6 +70,7 @@
 #s/item_id/url
 multirow create items \
     event_name \
+    event_span \
     event_url \
     description \
     calendar_name \
@@ -183,12 +184,17 @@
     #before looping through regular events.
     set bumps 0
     if { $no_time_p } {
-        #All-day event.
+        #
+        # All-day event.
+        #
         incr event_left_base $event_bump_delta
         incr all_day_events
+        set span ""
     } else {
-        #Regular event.
-        set name "$name ($start_time - $end_time)"
+        #
+        # Regular event.
+        #
+        set span "($start_time - $end_time)"
         foreach {previous_start previous_end} $previous_intervals {
             if { ($start_seconds >= $previous_start && $start_seconds < $previous_end)
                  || ($previous_start >= $start_seconds && $previous_start < $end_seconds)
@@ -209,7 +215,8 @@
                        }]
 
     multirow append items \
-        "$name" \
+        $name \
+        $span \
         $event_url \
         $description \
         $calendar_name \