Index: openacs-4/contrib/packages/project-manager/tcl/calendar-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/tcl/Attic/calendar-procs.tcl,v diff -u -r1.1.2.8 -r1.1.2.9 --- openacs-4/contrib/packages/project-manager/tcl/calendar-procs.tcl 24 Sep 2004 20:53:52 -0000 1.1.2.8 +++ openacs-4/contrib/packages/project-manager/tcl/calendar-procs.tcl 26 Oct 2004 01:22:27 -0000 1.1.2.9 @@ -86,13 +86,21 @@ # highlight what you're assigned to. if {[string equal $person_id $user_id]} { - set font_begin "" - set font_end "" + set font_begin "" + set font_end "" } else { set font_begin "" set font_end "" } + if { \ + ![empty_string_p $is_lead_p] && \ + [string is true $is_lead_p]} { + + set font_begin "$font_begin" + set font_end "$font_end" + } + # if this is another row of the same item, just add the name. if {[string equal $last_task_id $task_id]} { append day_details "
  • , ${font_begin}${full_name}${font_end}
  • "