Index: openacs-4/packages/project-manager/lib/project-portlet.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/lib/project-portlet.adp,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/project-manager/lib/project-portlet.adp	12 Aug 2005 06:02:54 -0000	1.9
+++ openacs-4/packages/project-manager/lib/project-portlet.adp	15 Aug 2005 08:22:59 -0000	1.10
@@ -28,8 +28,17 @@
 	    <td class="fill-list-bg">@project.project_code@</td>
 	  </tr>
 	</if>
-	<if @use_goal_p@ eq 1>
 	  <tr>
+	    <td class="highlight">#project-manager.Customer#</td>
+            <if @project.customer_name@ ne "">
+              <td class="fill-list-bg"><a href="@contacts_url@@project.customer_id@">@project.customer_name@</td>
+            </if> 
+            <else>
+	      <td class="fill-list-bg">@project.customer_id@</td>
+            </else>
+	  </tr>
+       	<if @use_goal_p@ eq 1>
+	  <tr>
 	    <td class="highlight">#project-manager.Goal_1#</td>
 	    <td class="fill-list-bg">@project.goal@</td>
 	  </tr>
@@ -41,7 +50,7 @@
 		    <b>#project-manager.Open#</b> / <i><a title="#project-manager.Close_project#" href=@close_url@>#project-manager.Close#</a></i>
 		</if>
 	        <else>
-		    <b>#project-manager.Closed#</b> <small>(<a title="Rate this project#" href=@rate_url@>Rate</a>)</small>
+		    <b>#project-manager.Closed#</b> <small>(<a title="#project-manager.Rate_this_project#" href=@rate_url@>#project-manager.Rate#</a>)</small>
 		</else>
 	  </td>
 	</tr>
Index: openacs-4/packages/project-manager/lib/project-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/lib/project-portlet.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/project-manager/lib/project-portlet.tcl	12 Aug 2005 06:02:54 -0000	1.10
+++ openacs-4/packages/project-manager/lib/project-portlet.tcl	15 Aug 2005 08:22:59 -0000	1.11
@@ -42,6 +42,12 @@
 set edit_url "[ad_conn package_url]add-edit?[export_url_vars project_item_id]"
 set variables(customer_id) $project(customer_id)
 
+set contacts_url [apm_package_url_from_key contacts]
+if {![empty_string_p contacts_url]} {
+    set project(customer_name) [contact::name -party_id $project(customer_id)]
+} else {
+    set project(customer_name) ""
+}
 # ------------------
 # Dynamic Attributes
 # ------------------