Index: openacs-4/packages/project-manager/www/lib/nav-bar.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/lib/nav-bar.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/project-manager/www/lib/nav-bar.tcl	26 May 2005 09:34:30 -0000	1.3
+++ openacs-4/packages/project-manager/www/lib/nav-bar.tcl	3 Jun 2005 22:13:45 -0000	1.4
@@ -44,7 +44,7 @@
     if [empty_string_p $project_item_id] {
 	lappend link_list [list "[export_vars -base ${logger_url} {user_id {project_manager_url $package_url}}]"]
     } else {
-	set logger_project_id [pm::project::get_logger_project -project_item_id $project_item_id]
+	set logger_project_id [lindex [application_data_link::get_linked -from_object_id $project_item_id -to_object_type logger_project] 0]
 	lappend link_list [list "[export_vars -base ${logger_url} {{project_manager_url $package_url} {project_id $logger_project_id}}]"]
     }
     lappend link_list {}