Index: openacs-4/contrib/packages/events/www/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/events/www/index.adp,v
diff -u -r1.6 -r1.7
--- openacs-4/contrib/packages/events/www/index.adp	27 Feb 2004 10:32:14 -0000	1.6
+++ openacs-4/contrib/packages/events/www/index.adp	23 Nov 2004 19:45:14 -0000	1.7
@@ -1,11 +1,12 @@
 <master>
 <property name="title">Events</property>
 <property name="context">@context;noquote@</property>
-
 <if @admin_p@ true>
-  <div style="float: right;"><a href="admin/" class="button">Administer Events</a></div>
+  <div style="float: right;"><a href="manage/" class="button">Administer Events</a></div>
 </if>
-
+<if @event_new_link@ eq 1> 
+<a href=manage/>Add new Event</a>
+</if>
 <if @events:rowcount@ eq 0>
   <p> No planned events. </p>
 </if>
Index: openacs-4/contrib/packages/events/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/events/www/index.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/contrib/packages/events/www/index.tcl	13 Mar 2003 09:47:09 -0000	1.3
+++ openacs-4/contrib/packages/events/www/index.tcl	23 Nov 2004 19:47:43 -0000	1.4
@@ -24,7 +24,14 @@
 set user_id [ad_verify_and_get_user_id]
 set package_id [ad_conn package_id]
 set admin_p [ad_permission_p $package_id admin]
+set event_new_link 0
+set permission_admin [permission::permission_p -object_id $package_id -privilege "admin"]
+set permission_create [permission::permission_p -object_id $package_id -privilege "create"]
 
+if { $permission_admin == 0 && $permission_create == 1 } {
+    set event_new_link 1
+}
+
 set system_name [ad_system_name]
 
 set date_format [parameter::get -parameter date_format -default "MM/DD/YYYY"]