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.18 -r1.19
--- openacs-4/packages/calendar/tcl/calendar-display-procs.tcl 26 Apr 2002 21:43:08 -0000 1.18
+++ openacs-4/packages/calendar/tcl/calendar-display-procs.tcl 28 Apr 2002 20:22:35 -0000 1.19
@@ -210,17 +210,18 @@
set item_details "$calendar_name - $item_type"
}
+ set item $name
+ set item_subst [subst $item_template]
+
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 item "$item_subst ($item_details)"
set ns_set_pos "X"
} else {
- set item "$pretty_start_date - $pretty_end_date: $name ($item_details)"
+ set item "$pretty_start_date - $pretty_end_date: $item_subst ($item_details)"
set ns_set_pos $start_hour
}
- set item [subst $item_template]
-
if { [string length $status_summary] > 0 } {
append item " $status_summary "
}