Index: openacs-4/packages/project-manager/templates/project-one.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/templates/project-one.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/project-manager/templates/project-one.tcl	10 Aug 2006 09:18:09 -0000	1.6
+++ openacs-4/packages/project-manager/templates/project-one.tcl	6 Feb 2007 11:34:20 -0000	1.7
@@ -47,11 +47,15 @@
 
 set folder_id [lindex [application_data_link::get_linked -from_object_id $project(item_id) -to_object_type "content_folder"] 0]
 
+set parent_project_id $project_item_id
+set context [list]
+while {$parent_project_id ne ""} {
+    set project_name [pm::util::get_project_name -project_item_id $parent_project_id]
+    lappend context [list "one?project_item_id=$parent_project_id" "$project_name"]
+    set parent_project_id [pm::project::parent_project_id -project_id $parent_project_id]
+}
 
-# set up context bar, needs project(parent_id)
-if {[string equal $project(parent_id) $project_root]} {
-    set context [list "$project(project_name)"]
-} else {
-    set parent_name [pm::util::get_project_name -project_item_id $project(parent_id)]
-    set context [list [list "one?project_item_id=$project(parent_id)" "$parent_name"] "$project(project_name)"]
-}
\ No newline at end of file
+# Reverse the list (as we go up the tree but need it down the tree)
+
+set context [struct::list reverse $context]
+lappend context "$project(project_name)"
Index: openacs-4/packages/project-manager/templates/task-one.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/templates/task-one.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/project-manager/templates/task-one.tcl	23 Jan 2007 06:35:20 -0000	1.3
+++ openacs-4/packages/project-manager/templates/task-one.tcl	6 Feb 2007 11:34:20 -0000	1.4
@@ -95,7 +95,8 @@
 }
 
 # Reverse the list (as we go up the tree but need it down the tree)
-struct::list reverse $context
+
+set context [struct::list reverse $context]
 lappend context "$task_info(task_title)"