Index: openacs-4/contrib/packages/events/www/admin/event.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/events/www/admin/Attic/event.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/contrib/packages/events/www/admin/event.tcl	4 Jun 2003 01:44:50 -0000	1.3
+++ openacs-4/contrib/packages/events/www/admin/event.tcl	23 Nov 2004 19:59:04 -0000	1.4
@@ -25,11 +25,25 @@
     }
 }
 
+
 events::event::get -event_id $event_id -array event_info
 events::event::get_stats -event_id $event_id -array event_stats
-
 set count_spotsremaining [expr $event_stats(max_people) - $event_stats(approved)]
 
+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"]
+set permission_create [permission::permission_p -object_id $package_id -party_id $user_id  -privilege "create"]
+set event_admin [permission::permission_p -object_id $event_id -party_id $user_id  -privilege "admin"]
+
+if { $package_admin != 1 && $permission_create != 1 && $event_admin != 1} {
+
+    doc_return 200 text/html  "<h3>Permission Denied</h3>
+                               You don't have permission to admin Events Management. "
+    ad_script_abort
+}
+
+set admin_permission [permission::permission_p -object_id $event_id -party_id $user_id -privilege "admin"]
 set pretty_location ""
 if { [empty_string_p $event_info(city)] } {
     append pretty_location "$event_info(name)"
@@ -45,7 +59,7 @@
     append pretty_location "$event_info(usps_abbrev)"
 }
 set title "$pretty_location: $event_info(timespan)"
-set context [list [list "activities" Activities] [list "activity?activity_id=$event_info(activity_id)" $event_info(name)] $pretty_location]
+set context [list [list "../event-info?event_id=$event_id" $event_info(name)] $pretty_location]
 
 set attachments_enabled_p [events::event::attachments_enabled_p]
 if {$attachments_enabled_p} {