Index: openacs-4/packages/contacts/www/index.vuh
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/index.vuh,v
diff -u -N -r1.13 -r1.14
--- openacs-4/packages/contacts/www/index.vuh	15 Feb 2006 10:06:36 -0000	1.13
+++ openacs-4/packages/contacts/www/index.vuh	22 Mar 2006 13:21:04 -0000	1.14
@@ -18,11 +18,9 @@
 }
 set action [lindex $file_list 1]
 
-
 callback contacts::redirect -party_id $party_id -action $action
 
 
-
 if { $party_is_contact_p } {
         contact::require_visiblity -party_id $party_id
 
@@ -79,6 +77,7 @@
        	   ad_script_abort
         }
 } else {
+
         switch $file_url {
 	   "add/person" {
                if { ![ns_queryexists object_type]  } {
Index: openacs-4/packages/contacts/www/message.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/message.tcl,v
diff -u -N -r1.28 -r1.29
--- openacs-4/packages/contacts/www/message.tcl	12 Mar 2006 14:43:04 -0000	1.28
+++ openacs-4/packages/contacts/www/message.tcl	22 Mar 2006 13:21:04 -0000	1.29
@@ -42,7 +42,9 @@
 
 if { [exists_and_not_null party_id] } {
     foreach p_id $party_id {
-	lappend party_ids $p_id
+	if {[lsearch $party_ids $party_id] < 0} {
+	    lappend party_ids $p_id
+	}
     }
 }