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.28 -r1.29
--- openacs-4/packages/contacts/www/contact-rels.tcl	8 Sep 2006 12:07:50 -0000	1.28
+++ openacs-4/packages/contacts/www/contact-rels.tcl	3 Jan 2021 15:33:17 -0000	1.29
@@ -83,7 +83,7 @@
 set format "normal"
 
 set bulk_actions [list "[_ contacts.contact_rel_change]" "../relationship-bulk-move" "[_ contacts.contact_rel_change]"]
-set admin_p [ad_permission_p [ad_conn package_id] admin]
+set admin_p [permission::permission_p -party_id [ad_conn user_id] -object_id [ad_conn package_id] -privilege admin]
 #set default_group_id [contacts::default_group_id]
 set title "Contacts"
 set context {}