Index: openacs-4/packages/notifications/tcl/notification-display-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/tcl/notification-display-procs.tcl,v
diff -u -r1.15 -r1.16
--- openacs-4/packages/notifications/tcl/notification-display-procs.tcl	15 May 2007 20:14:51 -0000	1.15
+++ openacs-4/packages/notifications/tcl/notification-display-procs.tcl	26 May 2007 10:43:27 -0000	1.16
@@ -53,6 +53,10 @@
         set title [_ notifications.lt_Request_Notification_]
         set sub_chunk "[_ notifications.lt_You_may_a_hrefsub_url]"
     }
+    # if they are an admin give them to view all subscribers
+    if { [permission::permission_p -object_id $object_id -privilege admin] } {
+	append sub_chunk " \[<a href=\"[export_vars -base /notifications/subscribers -url {object_id}]\">[_ notifications.Subscribers]</a>\]"
+    }
 
     if { [empty_string_p $sub_url] } {
          return ""