Index: openacs-4/packages/dotlrn/www/dotlrn-master.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/dotlrn-master.tcl,v diff -u -r1.9.2.12 -r1.9.2.13 --- openacs-4/packages/dotlrn/www/dotlrn-master.tcl 6 May 2003 10:54:00 -0000 1.9.2.12 +++ openacs-4/packages/dotlrn/www/dotlrn-master.tcl 7 May 2003 13:58:23 -0000 1.9.2.13 @@ -287,11 +287,14 @@ set header_img_alt_text $header_logo_alt_text } - # The header text is the name of the community - set text [dotlrn_community::get_community_header_name $community_id] + set text [dotlrn::user_context_bar -community_id $community_id] + if { [string equal [ad_conn package_key] [dotlrn::package_key]] } { + set text "$text" + } + } elseif {[parameter::get -parameter community_type_level_p] == 1} { - # in a community type + # in a community type (subject) set text \ [dotlrn_community::get_community_type_name [dotlrn_community::get_community_type]] } else {