Index: openacs-4/contrib/packages/events/www/manage/activities.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/events/www/manage/activities.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/packages/events/www/manage/activities.tcl	23 Nov 2004 20:05:54 -0000	1.1
+++ openacs-4/contrib/packages/events/www/manage/activities.tcl	23 Nov 2004 20:20:54 -0000	1.2
@@ -9,7 +9,19 @@
 
 } {
 } 
+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
+}
+
 set package_id [ad_conn package_id]
 
 set context [list Activities]