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.9 -r1.10
--- openacs-4/packages/acs-tcl/tcl/navigation-procs.tcl	30 Nov 2002 17:23:55 -0000	1.9
+++ openacs-4/packages/acs-tcl/tcl/navigation-procs.tcl	5 Jan 2003 17:10:54 -0000	1.10
@@ -24,7 +24,7 @@
     used, and then only in the sitewide master rather than on 
     individual pages.
 
-    @param separator the text placed between each link
+    @param separator The text placed between each link
     @param context list as with ad_context_bar 
     
     @return html fragment
@@ -43,13 +43,14 @@
 
 ad_proc -public ad_context_bar { 
     -node_id
+    -separator
     args
 } {
     Returns a Yahoo-style hierarchical navbar. Includes "Your Workspace" or "Administration"
     if applicable, and the subsite if not global.
 
     @param node_id If provided work up from this node, otherwise the current node
-
+    @param separator The text placed between each link (passed to ad_context_bar_html if provided)
     @return an html fragment generated by ad_context_bar_html
     
     @see ad_context_bar_html
@@ -82,7 +83,11 @@
         set context [lreplace $context end end [lindex [lindex $context end] 1]]
     }
 
-    return [ad_context_bar_html [concat $context $args]]
+    if { [info exists separator] } {
+        return [ad_context_bar_html -separator $separator [concat $context $args]]
+    } else {
+        return [ad_context_bar_html [concat $context $args]]
+    }
 }