Index: openacs-4/packages/simulation/www/simplay/notifications.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/simplay/notifications.tcl,v
diff -u -r1.1 -r1.1.2.1
--- openacs-4/packages/simulation/www/simplay/notifications.tcl	26 Jan 2004 15:23:38 -0000	1.1
+++ openacs-4/packages/simulation/www/simplay/notifications.tcl	17 Mar 2004 12:32:36 -0000	1.1.2.1
@@ -11,21 +11,30 @@
 set page_title "Notifications"
 set context [list [list "." "SimPlay"] [list $case_url $case(label)] $page_title]
 
+set package_id [ad_conn package_id]
 set user_id [ad_conn user_id]
 set return_url [ad_return_url]
 
 multirow create notifications url label title subscribed_p
 
-foreach type { 
-    workflow_assignee simplay_message
-} {
+set types {workflow_assignee simplay_message}
+
+set adminplayer_p [permission::permission_p -object_id $package_id -privilege sim_adminplayer]
+if { $adminplayer_p } {
+    lappend types workflow
+}
+
+foreach type $types {
     switch $type {
         workflow_assignee {
             set pretty_name "all tasks you're assigned to"
         }
         simplay_message {
             set pretty_name "all messages you receive"
         }
+        workflow {
+            set pretty_name "All tasks in the simulation"
+        }
         default {
             error "Unknown type"
         }