Index: openacs-4/contrib/packages/events/www/admin/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/events/www/admin/Attic/index.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/contrib/packages/events/www/admin/index.tcl	9 Mar 2003 16:27:55 -0000	1.2
+++ openacs-4/contrib/packages/events/www/admin/index.tcl	23 Nov 2004 19:59:04 -0000	1.3
@@ -21,9 +21,18 @@
     context_bar:onevalue
 }
 
-
-ad_require_permission [ad_conn package_id] admin
+set user_id [ad_conn user_id]
 set package_id [ad_conn package_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 context_bar [ad_context_bar]
 
 set date_format [parameter::get -parameter date_format -default "MM/DD/YYYY"]