Index: openacs-4/contrib/packages/events/www/manage/role-create.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/events/www/manage/role-create.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/packages/events/www/manage/role-create.tcl	23 Nov 2004 20:05:54 -0000	1.1
+++ openacs-4/contrib/packages/events/www/manage/role-create.tcl	21 Jan 2005 22:42:03 -0000	1.2
@@ -19,7 +19,9 @@
 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"]
+if { [exists_and_not_null event_id]  } {
 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} {