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 -N -r1.3 -r1.4
--- openacs-4/packages/contacts/lib/contact-relationships.tcl	27 Jul 2005 13:23:01 -0000	1.3
+++ openacs-4/packages/contacts/lib/contact-relationships.tcl	16 Sep 2005 15:38:18 -0000	1.4
@@ -27,7 +27,7 @@
 
 db_foreach get_relationships {} {
     set contact_url [contact::url -party_id $other_party_id]
-    if {[contact::organization_p -party_id $party_id]} {
+    if {[organization::organization_p -party_id $party_id]} {
 	set other_object_type "person"
     } else {
 	set other_object_type "organization"
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 -N -r1.17 -r1.18
--- openacs-4/packages/contacts/www/contact-rels.tcl	21 Jul 2005 20:18:40 -0000	1.17
+++ openacs-4/packages/contacts/www/contact-rels.tcl	16 Sep 2005 15:37:56 -0000	1.18
@@ -174,7 +174,7 @@
 } -on_submit {
     if {[exists_and_not_null add]} {
 	set default_group [contacts::default_group]
-	if {[contact::organization_p -party_id $party_id]} {
+	if {[organization::organization_p -party_id $party_id]} {
 	    ad_returnredirect [export_vars -base "/contacts/add/person" -url {{group_ids $default_group} {object_id_two "$party_id"} role_two}]
 	} else {
 	    ad_returnredirect [export_vars -base "/contacts/add/organization" -url {{group_ids $default_group} {object_id_two "$party_id"} role_two}]