Index: openacs-4/packages/acs-tcl/tcl/acs-private-data-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/acs-private-data-procs.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/acs-tcl/tcl/acs-private-data-procs.tcl	30 Jan 2009 03:24:59 -0000	1.7
+++ openacs-4/packages/acs-tcl/tcl/acs-private-data-procs.tcl	27 Oct 2014 16:40:05 -0000	1.8
@@ -32,7 +32,7 @@
         check if a user can access an object's private data
     } {
         if {[privacy_control_enabled_p]} {
-            return [ad_permission_p -user_id $user_id $object_id read_private_data]
+            return [permission::permission_p -party_id $user_id -object_id $object_id -privilege read_private_data]
         } else {
             # backwards compatibility
             return 1
@@ -47,9 +47,9 @@
         grant permission to access private data
     } {
         if { [template::util::is_true $value] } {
-            ad_permission_grant $user_id $object_id read_private_data
+            permission::grant -party_id $user_id -object_id $object_id -privilege read_private_data
         } else {
-            ad_permission_revoke $user_id $object_id read_private_data
+            permission::revoke -party_id $user_id -object_id $object_id -privilege read_private_data
         }
     }
 }