Index: openacs-4/packages/contacts/lib/contact-relationships.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/contact-relationships.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/contacts/lib/contact-relationships.tcl	4 Apr 2006 13:33:16 -0000	1.8
+++ openacs-4/packages/contacts/lib/contact-relationships.tcl	27 Apr 2006 06:37:21 -0000	1.9
@@ -22,7 +22,7 @@
     set package_id [ad_conn package_id]
 }
 
-multirow create rels relationship relation_url contact contact_url attribute value
+multirow create rels relationship relation_url contact contact_url attribute value creation_date
 
 set groups_belonging_to [db_list get_party_groups { select group_id from group_distinct_member_map where member_id = :party_id  and group_id > 0}]
 lappend groups_belonging_to [contacts::default_group]
@@ -41,8 +41,9 @@
 	    set relation_url ""
 	}
 
+	set creation_date [lc_time_fmt $creation_date %q]
 	set role_singular [lang::util::localize $role_singular]
-	multirow append rels $role_singular $relation_url $other_name $contact_url {} {}
+	multirow append rels $role_singular $relation_url $other_name $contact_url {} {} $creation_date
 
 	# NOT YET IMPLEMENTED - Checking to see if role_singular or role_plural is needed
 
@@ -51,7 +52,7 @@
 	    
 	    if { [llength $details_list] > 0 } {
 		foreach {section attribute_name pretty_name value} $details_list {
-		    multirow append rels $role_singular $relation_url $other_name $contact_url $pretty_name $value
+		    multirow append rels $role_singular $relation_url $other_name $contact_url $pretty_name $value $creation_date
 		}
 	    }
 	}