Index: openacs-4/packages/contacts/lib/contacts.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/contacts.tcl,v
diff -u -r1.58 -r1.59
--- openacs-4/packages/contacts/lib/contacts.tcl	1 May 2006 19:53:58 -0000	1.58
+++ openacs-4/packages/contacts/lib/contacts.tcl	10 May 2006 20:55:37 -0000	1.59
@@ -231,15 +231,13 @@
     set page_query_name "contacts_pagination"
 }
 
-set elements [list \
-		  contact [list \
-			       label \
-			       {<span style=\"float: right; font-weight: normal; font-size: smaller\">$name_label</a>} \
-			       display_template \
-			       { 
+set elements [list]
+lappend elements contact [list \
+			      label {<span style=\"float: right; font-weight: normal; font-size: smaller\">$name_label</a>} \
+			      display_template { 
 				   <a href="@contacts.contact_url@">@contacts.name;noquote@</a>@contacts.orga_info;noquote@
 				   <span class="contact-editlink">
-				   \[<a href="${base_url}contact-edit?party_id=@contacts.party_id@">[_ contacts.Edit]</a>\]
+                                       \[<a href="${base_url}contact-edit?party_id=@contacts.party_id@">[_ contacts.Edit]</a>\]
 				   </span>
 				   <if @contacts.email@ not nil or @contacts.url@ not nil>
 				       <span class="contact-attributes">
@@ -254,15 +252,17 @@
  		                       </if>
 				       </span>
                         	   </if>
-			       }] \
-		  contact_id [list display_col party_id] \
-		  first_names [list display_col first_names] \
-		  last_name [list display_col last_name] \
-		  publish_date [list display_col publish_date] \
-		  organization [list display_col organization] \
-		  email [list display_col email] \
-		  name [list display_col name]]
+			      }]
 
+
+lappend elements contact_id [list display_col party_id]
+lappend elements first_names [list display_col first_names label [_ contacts.First_Names]]
+lappend elements last_name [list display_col last_name label [_ contacts.Last_Name]]
+lappend elements publish_date [list display_col publish_date label [_ contacts.Last_Modified]]
+lappend elements organization [list display_col organization label [_ contacts.Organization]]
+lappend elements email [list display_col email label [_ contacts.Email]]
+lappend elements name [list display_col name label [_ contacts.Name]]
+
 if { $format == "csv" } {
     set row_list [list contact_id {} name {}]
     if { $object_type ne "organization" } {