Index: openacs-4/packages/contacts/www/contact-rels.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/contact-rels.tcl,v
diff -u -r1.18 -r1.19
--- openacs-4/packages/contacts/www/contact-rels.tcl	16 Sep 2005 15:37:56 -0000	1.18
+++ openacs-4/packages/contacts/www/contact-rels.tcl	25 Sep 2005 12:37:06 -0000	1.19
@@ -174,9 +174,10 @@
 } -on_submit {
     if {[exists_and_not_null add]} {
 	set default_group [contacts::default_group]
-	if {[organization::organization_p -party_id $party_id]} {
+	if {$person_valid_p} {
 	    ad_returnredirect [export_vars -base "/contacts/add/person" -url {{group_ids $default_group} {object_id_two "$party_id"} role_two}]
-	} else {
+	} 
+	if {$org_valid_p} {
 	    ad_returnredirect [export_vars -base "/contacts/add/organization" -url {{group_ids $default_group} {object_id_two "$party_id"} role_two}]
 	}
     }