Index: openacs-4/packages/project-manager/lib/mail-portlet.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/lib/mail-portlet.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/project-manager/lib/mail-portlet.adp	4 Oct 2005 16:51:11 -0000	1.1
@@ -0,0 +1,20 @@
+<master src="@default_layout_url;noquote@" />
+<property name="portlet_title">Mails</property>
+
+<table width="100%">
+<tr>
+  <td colspan="2" class="fill-list-bottom">
+    <table border="0" cellpadding="1" cellspacing="1" width="100%">
+      <tr>
+	<td>
+	    <include src="/packages/mail-tracking/lib/messages" 
+		object_id=@project_item_id@ 
+		package_id=@package_id@ 
+		show_filter_p="f"
+	    >
+	</td>
+      </tr>
+    </table>
+  </td>
+</tr>
+</table>
\ No newline at end of file
Index: openacs-4/packages/project-manager/lib/mail-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/lib/mail-portlet.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/project-manager/lib/mail-portlet.tcl	4 Oct 2005 16:51:11 -0000	1.1
@@ -0,0 +1,18 @@
+# packages/project-manager/lib/mail-portlet.tcl
+#
+# Portlet to show projec e-mail messages
+#
+# @author Miguel Marin (miguelmarin@viaro.net)
+# @author Viaro Networks www.viaro.net
+# @creation-date 2005-05-01
+
+set default_layout_url [parameter::get -parameter DefaultPortletLayoutP]
+
+set community_id [dotlrn_community::get_community_id]
+if { ![empty_string_p $community_id] } {
+    set package_id [dotlrn_community::get_package_id_from_package_key \
+                        -package_key project-manager \
+                        -community_id $community_id]
+} else {
+    set package_id [ad_conn package_id]
+}
Index: openacs-4/packages/project-manager/templates/project-one.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/templates/project-one.adp,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/project-manager/templates/project-one.adp	14 Sep 2005 22:48:33 -0000	1.11
+++ openacs-4/packages/project-manager/templates/project-one.adp	4 Oct 2005 16:50:29 -0000	1.12
@@ -78,6 +78,11 @@
             forum_id="@forum_id@" />
         </if>
         <p />
+    <p />
+	<if @mt_installed_p@>
+	    <include src="/packages/project-manager/lib/mail-portlet" project_item_id=@project_item_id@>
+	</if>
+    <p />
 </td>
 </tr>
 </table>
Index: openacs-4/packages/project-manager/templates/project-one.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/templates/project-one.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/project-manager/templates/project-one.tcl	9 Sep 2005 22:31:42 -0000	1.2
+++ openacs-4/packages/project-manager/templates/project-one.tcl	4 Oct 2005 16:50:29 -0000	1.3
@@ -54,3 +54,5 @@
     set parent_name [pm::util::get_project_name -project_item_id $project(parent_id)]
     set context [list [list "one?project_item_id=$project(parent_id)" "$parent_name"] "$project(project_name)"]
 }
+
+set mt_installed_p [apm_package_installed_p "mail-tracking"]
\ No newline at end of file