Index: openacs-4/packages/acs-tcl/tcl/deprecated-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/deprecated-procs.tcl,v
diff -u -N -r1.19 -r1.20
--- openacs-4/packages/acs-tcl/tcl/deprecated-procs.tcl	17 May 2018 14:42:03 -0000	1.19
+++ openacs-4/packages/acs-tcl/tcl/deprecated-procs.tcl	28 Jun 2018 09:10:14 -0000	1.20
@@ -3177,7 +3177,33 @@
 # deprecated site-nodes-procs.tcl
 ########################################################################
 
+########################################################################
+# deprecated party-procs.tcl
+########################################################################
 
+namespace eval party {
+
+    ad_proc -deprecated -public permission_p {
+        { -user_id "" }
+        { -privilege "read" }
+        party_id
+    } {
+        Wrapper for ad_permission to allow us to bypass having to
+        specify the read privilege
+
+        Deprecated: just another wrapper for permission::permission_p
+
+        @author Michael Bryzek (mbryzek@arsdigita.com)
+        @creation-date 10/2000
+
+        @see permission::permission_p
+
+    } {
+        return [permission::permission_p -party_id $user_id -object_id $party_id -privilege $privilege]
+    }
+    
+}
+
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4