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