Index: openacs-4/packages/logger/lib/entries.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/logger/lib/entries.tcl,v
diff -u -r1.10.2.3 -r1.10.2.4
--- openacs-4/packages/logger/lib/entries.tcl	1 Dec 2004 22:26:22 -0000	1.10.2.3
+++ openacs-4/packages/logger/lib/entries.tcl	25 Apr 2005 11:10:16 -0000	1.10.2.4
@@ -160,7 +160,7 @@
         }
     }
     project_id {
-        display_col project_name
+        display_template {<a href="@entries.project_url@">@entries.project_name@</a>}
         label "Project"
         hide_p {[ad_decode [exists_and_not_null project_id] 1 1 0]}
     }
@@ -543,7 +543,7 @@
 
 # some more documentation of what's going on here would be helpful. 
 
-set extend  { edit_url delete_url delete_onclick time_stamp_pretty edit_p delete_p my_base_url my_project_manager_url }
+set extend  { edit_url delete_url delete_onclick time_stamp_pretty edit_p delete_p my_base_url my_project_manager_url project_url }
 foreach id $tree_ids {
     lappend extend c_${id}_category_id
 }
@@ -556,6 +556,8 @@
     set my_base_url $base_url 
     set my_project_manager_url $project_manager_url
 
+    set project_item_id [logger::util::project_manager_project_id -project_id $project_id]
+    set project_url [export_vars -base "[logger::util::project_manager_url]one" {project_item_id}]
     if { ![empty_string_p $tree_id] && ![empty_string_p $category_id] } {
         lappend row_categories($tree_id) $category_id
     }
Index: openacs-4/packages/logger/tcl/util-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/logger/tcl/util-procs.tcl,v
diff -u -r1.3.4.1 -r1.3.4.2
--- openacs-4/packages/logger/tcl/util-procs.tcl	17 Sep 2004 21:06:04 -0000	1.3.4.1
+++ openacs-4/packages/logger/tcl/util-procs.tcl	25 Apr 2005 11:10:16 -0000	1.3.4.2
@@ -156,3 +156,18 @@
         return 1
     }
 }
+
+ad_proc -public logger::util::project_manager_project_id {
+    -project_id:required
+} {
+    return [db_string get_pm_project {
+	SELECT
+        item_id
+	FROM
+	pm_projects, cr_items
+	WHERE
+	logger_project = :project_id AND
+	live_revision = project_id
+    } -default 0
+	   ]
+}
\ No newline at end of file