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