Index: openacs-4/packages/calendar/www/view-one-day-display.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/view-one-day-display.adp,v
diff -u -r1.25 -r1.26
--- openacs-4/packages/calendar/www/view-one-day-display.adp	30 Aug 2008 19:51:23 -0000	1.25
+++ openacs-4/packages/calendar/www/view-one-day-display.adp	23 Apr 2018 12:42:01 -0000	1.26
@@ -12,7 +12,7 @@
         <td headers="events" style="vertical-align: top; width:80%" class="day-event-1" valign="top">
           <div id="day-entry-box">
             <multiple name="items">
-              <div id="day-entry-@items.rownum@" class="day-entry-item @items.style_class@" style="top: @items.top@@hour_height_units@; height: @items.height@@hour_height_units@; @items.style@"><p><if @items.num_attachments@ gt 0><img src="/resources/calendar/images/attach.png" alt=""></if><a href="@items.event_url@" title="#calendar.goto_items_event_name#">@items.event_name@</a></p></div>
+              <div id="day-entry-@items.rownum@" class="day-entry-item @items.style_class@" style="top: @items.top@@hour_height_units@; height: @items.height@@hour_height_units@; @items.style@"><p><if @items.num_attachments@ gt 0><img src="/resources/calendar/images/attach.png" alt=""></if><a href="@items.event_url@" title="#calendar.goto_items_event_name#">@items.event_name@ <span class='time-span'>@items.event_span@</span></a></p></div>
             </multiple>
           </div><!-- day-entry-box -->
         </td>
Index: openacs-4/packages/calendar/www/view-one-day-display.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/view-one-day-display.tcl,v
diff -u -r1.45 -r1.46
--- openacs-4/packages/calendar/www/view-one-day-display.tcl	20 Mar 2018 08:49:09 -0000	1.45
+++ openacs-4/packages/calendar/www/view-one-day-display.tcl	23 Apr 2018 12:42:01 -0000	1.46
@@ -57,6 +57,7 @@
     all_day_p \
     style_class \
     event_name \
+    event_span \
     event_url \
     description \
     calendar_name \
@@ -101,6 +102,7 @@
     #height will be overwritten once we know how the vertical hour span.
     multirow append items 1 "calendar-${system_type}Item" \
         $name \
+        "" \
         $event_url \
         $description \
         $calendar_name \
@@ -179,7 +181,8 @@
                                   }]
 
     multirow append items 0 "calendar-${system_type}Item" \
-        "$name ($start_time - $end_time)" \
+        $name \
+        "($start_time - $end_time)" \
         $event_url \
         $description \
         $calendar_name \
Index: openacs-4/packages/calendar/www/view-week-display.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/view-week-display.adp,v
diff -u -r1.20 -r1.21
--- openacs-4/packages/calendar/www/view-week-display.adp	30 Aug 2008 19:51:23 -0000	1.20
+++ openacs-4/packages/calendar/www/view-week-display.adp	23 Apr 2018 12:42:01 -0000	1.21
@@ -23,7 +23,7 @@
           <div class="week-entry-box">
             <multiple name="items">
               <div class="week-entry-item @items.style_class@" style="position: absolute; top:@items.top@@hour_height_units@; left: @items.left@@width_units@; height:@items.height@@hour_height_units@;">
-                <p><if @items.num_attachments@ gt 0><img src="/resources/calendar/images/attach.png" alt=""></if><a href="@items.event_url@" title="#calendar.goto_items_event_name#">@items.event_name@</a></p>
+                <p><if @items.num_attachments@ gt 0><img src="/resources/calendar/images/attach.png" alt=""></if><a href="@items.event_url@" title="#calendar.goto_items_event_name#">@items.event_name@ <span class='time-span'>@items.event_span@</span></a></p>
               </div>
             </multiple>
           </div>
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 \
Index: openacs-4/packages/calendar/www/resources/calendar.css
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/resources/calendar.css,v
diff -u -r1.16 -r1.17
--- openacs-4/packages/calendar/www/resources/calendar.css	9 Nov 2008 23:29:22 -0000	1.16
+++ openacs-4/packages/calendar/www/resources/calendar.css	23 Apr 2018 12:42:01 -0000	1.17
@@ -388,3 +388,10 @@
   text-decoration: underline;
 }
 
+.calendar-Item span.time-span {
+    font-size: smaller;
+    color: #999;
+}
+.calendar-Item {
+    line-height: 1.1em;
+}