Index: openacs-4/contrib/packages/project-manager/www/lib/nav-bar.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/lib/Attic/nav-bar.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/contrib/packages/project-manager/www/lib/nav-bar.tcl	6 May 2004 18:48:00 -0000	1.3
+++ openacs-4/contrib/packages/project-manager/www/lib/nav-bar.tcl	3 Jun 2004 21:32:19 -0000	1.4
@@ -4,6 +4,7 @@
 set package_id [ad_conn package_id]
 set package_url [ad_conn package_url]
 set page_url [ad_conn url]
+set logger_url [pm::util::logger_url]
 
 set admin_p [permission::permission_p -object_id $package_id -privilege admin]
 
@@ -16,14 +17,18 @@
     lappend link_list {}
     lappend link_list "Tasks"
 
-    lappend link_list [list "${package_url}index"]
+    lappend link_list [list "${package_url}"]
     lappend link_list {}
     lappend link_list "Projects"
 
     lappend link_list [list "${package_url}processes"]
     lappend link_list {}
     lappend link_list "Processes"
 
+    lappend link_list [list "${logger_url}?user_id=${user_id}"]
+    lappend link_list {}
+    lappend link_list "Logger"
+
     lappend link_list [list "${package_url}task-select-project"]
     lappend link_list {}
     lappend link_list "New task"
@@ -40,13 +45,15 @@
 multirow create links name url selected_p
 foreach {url_list param_list label} $link_list {
     set selected_p 0
+
     foreach url $url_list {
-        set selected_p [logger::ui::navbar_link_selected_p $url $param_list]
-        if { $selected_p } {
-            break
+
+        if {[string equal $page_url $url]} {
+            set selected_p 1
         }
     }
 
+
     if { ![empty_string_p $param_list] } {
         append url "?[export_vars $param_list]"
     }