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 -N -r1.4 -r1.5
--- openacs-4/packages/acs-tcl/tcl/navigation-procs.tcl	12 May 2002 20:57:02 -0000	1.4
+++ openacs-4/packages/acs-tcl/tcl/navigation-procs.tcl	19 Jul 2002 23:17:15 -0000	1.5
@@ -12,11 +12,16 @@
 }
 
 
-ad_proc ad_context_bar { args } {
+ad_proc ad_context_bar { 
+    -node_id
+    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
+
 } {
 
   set context [list]
@@ -25,7 +30,10 @@
       lappend context [list "[ad_pvt_home]" "[ad_pvt_home_name]"]
   }
 
-  set node_id [ad_conn node_id]
+  if { ![info exists node_id] } {
+      set node_id [ad_conn node_id]
+  }
+
   db_foreach context {
     select site_node.url(node_id) as url, object_id,
            acs_object.name(object_id) as object_name,