Index: openacs-4/packages/acs-subsite/tcl/relation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/relation-procs.tcl,v
diff -u -N -r1.19 -r1.20
--- openacs-4/packages/acs-subsite/tcl/relation-procs.tcl	18 Apr 2018 08:07:33 -0000	1.19
+++ openacs-4/packages/acs-subsite/tcl/relation-procs.tcl	7 Jun 2018 16:52:40 -0000	1.20
@@ -12,16 +12,20 @@
 
 namespace eval relation {}
 
-ad_proc -public relation_permission_p {
+ad_proc -deprecated -public relation_permission_p {
     { -user_id "" }
     { -privilege "read" }
     rel_id
 } {
     Wrapper for ad_permission_p that lets us default to read permission
 
+    Deprecated: just another wrapper for permission::permission_p
+
     @author Michael Bryzek (mbryzek@arsdigita.com)
     @creation-date 12/2000
 
+    @see permission::permission_p
+
 } {
     return [permission::permission_p -party_id $user_id -object_id $rel_id -privilege $privilege]
 }