Index: openacs-4/packages/contacts/catalog/contacts.en_US.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/catalog/contacts.en_US.ISO-8859-1.xml,v
diff -u -r1.20 -r1.21
--- openacs-4/packages/contacts/catalog/contacts.en_US.ISO-8859-1.xml	15 Jun 2005 05:04:46 -0000	1.20
+++ openacs-4/packages/contacts/catalog/contacts.en_US.ISO-8859-1.xml	16 Jun 2005 23:03:34 -0000	1.21
@@ -64,8 +64,10 @@
   <msg key="country_is_-">country is -&gt;</msg>
   <msg key="country_is_not_-">country is not -&gt;</msg>
   <msg key="Create">Create</msg>
+  <msg key="create_a_message">Create a message</msg>
   <msg key="Create_a_role">Create a role</msg>
   <msg key="Create_a_Signature">Create a Signature</msg>
+  <msg key="create_email">Create Email</msg>
   <msg key="create_project">Create project</msg>
   <msg key="Create_role">Create role</msg>
   <msg key="Create_user">Create User</msg>
@@ -354,6 +356,7 @@
   <msg key="Update_filenames">Update filenames</msg>
   <msg key="Updated_By">Updated By</msg>
   <msg key="Updated_On">Updated On</msg>
+  <msg key="Upload_File">Upload File</msg>
   <msg key="Upload_More">Upload More</msg>
   <msg key="View_all_roles">View all roles</msg>
   <msg key="View_next">View next</msg>
Index: openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl	16 Jun 2005 08:54:18 -0000	1.1
+++ openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl	16 Jun 2005 23:03:34 -0000	1.2
@@ -31,6 +31,12 @@
 } {
 }
 
+ad_proc -public -callback contact::append_attribute {
+    {-multirow_name:required}
+    {-name:required}
+} {
+}
+
 ad_proc -public -callback pm::project_new -impl contacts {
     {-package_id:required}
     {-project_id:required}
Index: openacs-4/packages/contacts/www/contact.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/contact.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/contacts/www/contact.tcl	15 Jun 2005 17:47:18 -0000	1.12
+++ openacs-4/packages/contacts/www/contact.tcl	16 Jun 2005 23:03:34 -0000	1.13
@@ -57,8 +57,12 @@
         }
     }
 }
+set append_list [list]
+callback contact::append_attribute -multirow_name append_list -name [contact::name -party_id $party_id]
+foreach append $append_list {
+    multirow append attributes [lindex $append 0] [lindex $append 1] [lindex $append 2]
+}
 
-
 set package_url [ad_conn package_url]
 
 multirow create rels relationship contact contact_url attribute value
@@ -95,7 +99,7 @@
 
     set project_id [lindex [application_data_link::get_linked -from_object_id $party_id -to_object_type "pm_project"] 0]
     set dotlrn_club_id [lindex [application_data_link::get_linked -from_object_id $party_id -to_object_type "dotlrn_club"] 0]
-    if {$project_id > 0} {
+    if {$project_id > 0 && $dotlrn_club_id <1} {
 	set package_id [acs_object::get_element -object_id $project_id -element package_id]
 	set base_url [apm_package_url_from_id $package_id]
 	set project_url [export_vars -base $base_url {{project_item_id $project_id}}]
@@ -108,6 +112,7 @@
     if {$dotlrn_club_id > 0} {
 	set club_url [dotlrn_community::get_community_url $dotlrn_club_id]
 	set dotlrn_club_enabled_p 1
+
     } else {
 	set dotlrn_club_enabled_p 0
     }