Index: openacs-4/packages/notifications/tcl/notifications-security-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/tcl/notifications-security-procs.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/notifications/tcl/notifications-security-procs.tcl	7 Jun 2018 15:11:17 -0000	1.6
+++ openacs-4/packages/notifications/tcl/notifications-security-procs.tcl	7 Jun 2018 16:35:39 -0000	1.7
@@ -29,50 +29,66 @@
         return [db_string user_approved_p {} -default 0]
     }
 
-    ad_proc -public can_notify_object_p {
+    ad_proc -deprecated -public can_notify_object_p {
         {-user_id ""}
         {-object_id:required}
     } {
         This checks if a user can request notification on a given object.
 
+        Deprecated: reduce the amount of wrappers to permission::permission_p
+
         @param user_id
         @param object_id
+
+        @see permission::permission_p
     } {
         return [permission::permission_p -party_id $user_id -object_id $object_id -privilege "read"]
     }
 
-    ad_proc -public require_notify_object {
+    ad_proc -deprecated -public require_notify_object {
         {-user_id ""}
         {-object_id:required}
     } {
         Require the ability to notify on an object.
 
+        Deprecated: just a wrapper to permission::require_permission
+
         @param user_id
         @param object_id
+
+        @see permission::require_permission
     } {
         permission::require_permission -party_id $user_id -object_id $object_id -privilege "read"
     }
 
-    ad_proc -public can_admin_request_p {
+    ad_proc -deprecated -public can_admin_request_p {
         {-user_id ""}
         {-request_id:required}
     } {
         Checks if a user can manage a given notification request.
 
+        Deprecated: reduce the amount of wrappers to permission::permission_p
+
         @param user_id
         @param request_id
+
+        @see permission::permission_p
     } {
         return [permission::permission_p -party_id $user_id -object_id $request_id -privilege "admin"]
     }
 
-    ad_proc -public require_admin_request {
+    ad_proc -deprecated -public require_admin_request {
         {-user_id ""}
         {-request_id:required}
     } {
         Require the ability to admin a request.
 
+        Deprecated: just a wrapper to permission::require_permission
+
         @param user_id
         @param request_id
+
+        @see permission::require_permission
     } {
         permission::require_permission -party_id $user_id -object_id $object_id -privilege "admin"
     }