Index: openacs-4/packages/logger/lib/nav-bar.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/logger/lib/nav-bar.tcl,v
diff -u -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/logger/lib/nav-bar.tcl	17 Sep 2004 21:06:03 -0000	1.1.2.1
+++ openacs-4/packages/logger/lib/nav-bar.tcl	25 Apr 2005 11:25:01 -0000	1.1.2.2
@@ -29,18 +29,36 @@
     lappend link_list "Add Entry"
 
     if {![empty_string_p $project_manager_url]} {
-        lappend link_list [list "${project_manager_url}"]
-        lappend link_list {}
-        lappend link_list "Projects"
+	
+	if {[empty_string_p project_id]} {
+	    lappend link_list [list "${project_manager_url}"]
+	    lappend link_list {}
+	    lappend link_list "Projects"
 
-        lappend link_list [list "${project_manager_url}processes"]
-        lappend link_list {}
-        lappend link_list "Processes"
+	    lappend link_list [list "${project_manager_url}processes"]
+	    lappend link_list {}
+	    lappend link_list "Processes"
 
-        lappend link_list [list "${project_manager_url}tasks"]
-        lappend link_list {}
-        lappend link_list "Tasks"
+	    lappend link_list [list "${project_manager_url}tasks"]
+	    lappend link_list {}
+	    lappend link_list "Tasks"
 
+        } else {
+	    set project_item_id [logger::util::project_manager_project_id -project_id $project_id]
+
+	    lappend link_list [list [export_vars -base "${project_manager_url}one" {project_item_id}]]
+	    lappend link_list {}
+	    lappend link_list "View Project"
+
+	    lappend link_list [list "${project_manager_url}processes"]
+	    lappend link_list {}
+	    lappend link_list "Processes"
+
+	    lappend link_list [list [export_vars -base "${project_manager_url}tasks" {project_item_id}]]
+	    lappend link_list {}
+	    lappend link_list "Tasks"
+	}
+
     }
 }