Index: openacs-4/packages/acs-subsite/www/admin/groups/elements-by-rel-type.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/groups/elements-by-rel-type.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-subsite/www/admin/groups/elements-by-rel-type.tcl	18 Apr 2011 17:24:30 -0000	1.3
+++ openacs-4/packages/acs-subsite/www/admin/groups/elements-by-rel-type.tcl	27 Oct 2014 16:39:51 -0000	1.4
@@ -24,8 +24,8 @@
 # @cvs-id $Id$
 
 set user_id [ad_conn user_id]
-set admin_p [ad_permission_p $group_id "admin"]
-set create_p [ad_permission_p $group_id "create"]
+set admin_p [permission::permission_p -object_id $group_id -privilege "admin"]
+set create_p [permission::permission_p -object_id $group_id -privilege "create"]
 
 set return_url "[ad_conn url]?[ad_conn query]"
 set return_url_enc [ad_urlencode $return_url]