Index: openacs-4/contrib/packages/events/www/admin/venues.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/events/www/admin/Attic/venues.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/contrib/packages/events/www/admin/venues.tcl	30 Mar 2004 14:54:51 -0000	1.2
+++ openacs-4/contrib/packages/events/www/admin/venues.tcl	23 Nov 2004 19:59:05 -0000	1.3
@@ -24,7 +24,18 @@
 
 set context_bar [ad_context_bar "Venues"]
 set package_id [ad_conn package_id]
+set user_id [ad_conn user_id]
+set package_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 { $package_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
+}
+
+
 #the columns for ad_table
 set col [list venue_name city state max_people connecting]