Index: openacs-4/contrib/packages/events/www/admin/event-price-ae-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/events/www/admin/Attic/event-price-ae-2.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/packages/events/www/admin/event-price-ae-2.tcl	9 Mar 2003 12:08:22 -0000	1.1
+++ openacs-4/contrib/packages/events/www/admin/event-price-ae-2.tcl	23 Nov 2004 19:59:04 -0000	1.2
@@ -2,7 +2,18 @@
 # Owner: bryanche@arsdigita.com
 # Purpose:  Verify and insert price/ecommerce data 
 #####
+set user_id [ad_conn user_id]
+set package_id [ad_conn package_id]
+set package_admin [permission::permission_p -object_id $package_id -party_id $user_id -privilege "admin"]
 
+
+if { $package_admin != 1} {
+
+    doc_return 200 text/html  "<h3>Permission Denied</h3>
+                               You don't have permission to admin Events Management. "
+    ad_script_abort
+}
+
 ### we're not supporting prices yet.
 return