Index: openacs-4/contrib/packages/events/www/admin/activity.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/events/www/admin/Attic/activity.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/contrib/packages/events/www/admin/activity.tcl	27 Feb 2004 10:34:50 -0000	1.3
+++ openacs-4/contrib/packages/events/www/admin/activity.tcl	23 Nov 2004 19:59:04 -0000	1.4
@@ -23,7 +23,18 @@
 
 
 set package_id [ad_conn package_id]
+set user_id [ad_conn user_id]
 
+#see if user have admin permission for the package
+set permission_admin [permission::permission_p -object_id $package_id -party_id $user_id  -privilege "admin"]
+set permission_create [permission::permission_p -object_id $package_id -party_id $user_id  -privilege "create"]
+if { $permission_admin != 1 && $permission_create != 1} {
+
+    doc_return 200 text/html  "<h3>Permission Denied</h3>
+                               You don't have permission to admin Events Management. "
+    ad_script_abort
+}
+
 events::activity::get -activity_id $activity_id -array activity_info
 events::activity::get_creator -activity_id $activity_id -array creator_info
 events::activity::get_stats -activity_id $activity_id -array activity_stats