Index: openacs-4/packages/acs-subsite/acs-subsite.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/acs-subsite.info,v
diff -u -r1.94 -r1.95
--- openacs-4/packages/acs-subsite/acs-subsite.info 25 Sep 2007 15:22:37 -0000 1.94
+++ openacs-4/packages/acs-subsite/acs-subsite.info 13 Dec 2007 17:22:59 -0000 1.95
@@ -7,7 +7,7 @@
t
f
-
+
OpenACS
Subsite
2007-07-18
@@ -16,7 +16,7 @@
GPL
3
-
+
@@ -66,6 +66,7 @@
+
Index: openacs-4/packages/acs-tcl/tcl/navigation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/navigation-procs.tcl,v
diff -u -r1.23 -r1.24
--- openacs-4/packages/acs-tcl/tcl/navigation-procs.tcl 21 Nov 2007 14:08:44 -0000 1.23
+++ openacs-4/packages/acs-tcl/tcl/navigation-procs.tcl 13 Dec 2007 17:22:59 -0000 1.24
@@ -11,7 +11,7 @@
# hierarchy)
ad_proc -public ad_context_bar_html {
- {-separator " : "}
+ -separator
context
} {
Generate the an html fragement for a context bar.
@@ -31,9 +31,16 @@
@see ad_context_bar
} {
+
+ # Get the separator from subsite parameter
+ if { ![info exists separator] } {
+ set subsite_id [ad_conn subsite_id]
+ set separator [parameter::get -package_id $subsite_id -parameter ContextBarSeparator -default ":"]
+ }
+
set out {}
foreach element [lrange $context 0 [expr {[llength $context] - 2}]] {
- append out "[lindex $element 1]$separator"
+ append out "[lindex $element 1] $separator "
}
append out [lindex $context end]
Index: openacs-4/www/default-master.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/www/default-master.adp,v
diff -u -r1.30 -r1.31
--- openacs-4/www/default-master.adp 3 Dec 2007 20:18:05 -0000 1.30
+++ openacs-4/www/default-master.adp 13 Dec 2007 17:23:23 -0000 1.31
@@ -39,7 +39,7 @@
- - @context.label@ :
+ - @context.label@ @separator@
- @context.label@
Index: openacs-4/www/default-master.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/www/default-master.tcl,v
diff -u -r1.25 -r1.26
--- openacs-4/www/default-master.tcl 3 Dec 2007 20:18:05 -0000 1.25
+++ openacs-4/www/default-master.tcl 13 Dec 2007 17:23:23 -0000 1.26
@@ -166,6 +166,10 @@
ad_context_bar_multirow -- $context_tmp
+# Context bar separator
+set subsite_id [ad_conn subsite_id]
+set separator [parameter::get -package_id $subsite_id -parameter ContextBarSeparator -default ":"]
+
#
# Curriculum specific bar
# TODO: remove this and add a more systematic / package independent way