Index: openacs-4/packages/theme-zen/lib/lrn-master.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/theme-zen/lib/lrn-master.tcl,v diff -u -r1.1.2.16 -r1.1.2.17 --- openacs-4/packages/theme-zen/lib/lrn-master.tcl 13 Mar 2007 15:39:56 -0000 1.1.2.16 +++ openacs-4/packages/theme-zen/lib/lrn-master.tcl 18 Mar 2007 19:40:26 -0000 1.1.2.17 @@ -177,7 +177,7 @@ if {[exists_and_not_null community_id]} { set youarehere "[dotlrn_community::get_community_name $community_id]" } else { - set youarehere "[_ theme-selva.MySpace]" + set youarehere "[_ theme-zen.MySpace]" } set extra_spaces "\"\"" @@ -194,14 +194,26 @@ set subnavbar "" } +# DRB: Hack to ensure that subgroups keep the same color as their ultimate club or +# class parent. A top-level community that's not a class or club will keep the +# top-level Selva colors. +if { [string match /dotlrn/clubs/* [ad_conn url]] } { + set css_url [parameter::get_from_package_key -package_key "theme-zen" -parameter "communityCssUrl" -default "/resources/theme-zen/Selva/turquoise/Selva.css"] +} elseif { [string match /dotlrn/classes/* [ad_conn url]] } { + set css_url [parameter::get_from_package_key -package_key "theme-zen" -parameter "courseCssUrl" -default "/resources/theme-zen/Selva/green/Selva.css"] +} else { + set css_url [parameter::get_from_package_key -package_key "theme-zen" -parameter "cssUrl" -default "/resources/theme-zen/Selva/default/Selva.css"] +} + append header_stuff [subst { +