Index: openacs-4/packages/contacts/lib/mail-tracking-portlet.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/mail-tracking-portlet.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/contacts/lib/mail-tracking-portlet.adp	19 Oct 2005 17:01:38 -0000	1.1
@@ -0,0 +1,18 @@
+<master src="@portlet_layout@">
+<property name="portlet_title">#contacts.MailTracking#</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"
+      		party_id="@party_id@"
+        </td>
+      </tr>
+    </table>
+  </td>
+</tr>
+</table>
\ No newline at end of file
Index: openacs-4/packages/contacts/lib/mail-tracking-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/mail-tracking-portlet.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/contacts/lib/mail-tracking-portlet.tcl	19 Oct 2005 17:01:38 -0000	1.1
@@ -0,0 +1 @@
+set portlet_layout [parameter::get -parameter "DefaultPortletLayout"]
\ No newline at end of file
Index: openacs-4/packages/contacts/www/mail-tracking.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/mail-tracking.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/contacts/www/mail-tracking.adp	19 Oct 2005 17:01:38 -0000	1.1
@@ -0,0 +1,2 @@
+<property name="party_id">@party_id@</property>
+<include src="/packages/contacts/lib/mail-tracking-portlet" recipient_id="@party_id@">
\ No newline at end of file
Index: openacs-4/packages/contacts/www/mail-tracking.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/mail-tracking.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/contacts/www/mail-tracking.tcl	19 Oct 2005 17:01:38 -0000	1.1
@@ -0,0 +1,16 @@
+ad_page_contract {
+
+    @author Al-Faisal El-Dajani (faisal.dajani@gmail.com)
+    @creation-date 2005-10-18
+} {
+    {party_id:integer}
+
+} -validate {
+    contact_exists -requires {party_id} {
+	if {![contact::exists_p -party_id $party_id]} {
+	    ad_complain "[_ contacts.lt_The_contact_specified]"
+	}
+    }
+}
+#??
+ad_return_template
\ No newline at end of file