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.8 -r1.9
--- openacs-4/packages/calendar/tcl/calendar-display-procs.tcl	14 Mar 2002 04:58:29 -0000	1.8
+++ openacs-4/packages/calendar/tcl/calendar-display-procs.tcl	16 Mar 2002 21:06:44 -0000	1.9
@@ -147,12 +147,18 @@
             # ns_log Notice "bma: one calendar $calendar_name"
 
             db_foreach select_day_items {} {
+                if {[empty_string_p $item_type]} {
+                    set item_details "$calendar_name"
+                } else {
+                    set item_details "$calendar_name - $item_type"
+                }
+
                 if {$pretty_start_date == "00:00 AM" && $pretty_end_date == "00:00 AM"} {
                     # Hack for no-time items
-                    set item "$name ($calendar_name)"
+                    set item "$name ($item_details)"
                     set ns_set_pos "X"
                 } else {
-                    set item "$pretty_start_date - $pretty_end_date: $name ($calendar_name)"
+                    set item "$pretty_start_date - $pretty_end_date: $name ($item_details)"
                     set ns_set_pos $start_hour
                 }