Index: openacs-4/contrib/packages/events/www/admin/venue-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/events/www/admin/Attic/venue-delete.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/packages/events/www/admin/venue-delete.tcl	9 Mar 2003 12:08:23 -0000	1.1
+++ openacs-4/contrib/packages/events/www/admin/venue-delete.tcl	23 Nov 2004 19:59:05 -0000	1.2
@@ -28,7 +28,19 @@
 	return 1
     }
 }
+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
+}
+
+
 events::venue::delete -venue_id $venue_id
 
 ad_returnredirect "venues"