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 {
+