Index: openacs-4/contrib/packages/events/www/admin/event-orders.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/events/www/admin/Attic/event-orders.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/packages/events/www/admin/event-orders.tcl	9 Mar 2003 12:08:22 -0000	1.1
+++ openacs-4/contrib/packages/events/www/admin/event-orders.tcl	23 Nov 2004 19:59:04 -0000	1.2
@@ -21,7 +21,18 @@
 	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
+}
+
 # what reg state do we plug into the database?
 set date_format [parameter::get -parameter date_format -default "MM/DD/YYYY"]
 set time_format [parameter::get -parameter time_format -default "HH12:MIam"]