Index: openacs-4/packages/calendar/www/view.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/view.adp,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/calendar/www/view.adp	21 Jul 2003 19:21:36 -0000	1.12
+++ openacs-4/packages/calendar/www/view.adp	22 Jul 2003 16:16:05 -0000	1.13
@@ -12,8 +12,10 @@
 </center>
 <p>
     <a href="cal-item-new?julian_date=@julian_date@" title="#calendar.Add_Item#"><img border=0 align="left" valign="top" src="/shared/images/add.gif" alt="#calendar.Add_Item#">#calendar.Add_Item#</a>
-
 <p>
+<if @admin_p@ eq 1>
+    <a href="admin/">Administer Calendar</a>
+</if>
 <include src="cal-options">	
 
     </td>	
Index: openacs-4/packages/calendar/www/view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/view.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/calendar/www/view.tcl	21 Jul 2003 19:21:36 -0000	1.12
+++ openacs-4/packages/calendar/www/view.tcl	22 Jul 2003 16:16:05 -0000	1.13
@@ -29,6 +29,8 @@
 set package_id [ad_conn package_id]
 set user_id [ad_conn user_id]
 
+set admin_p [ad_permission_p $package_id calendar_admin]
+
 set calendar_list [calendar::adjust_calendar_list -calendar_list $calendar_list -package_id $package_id -user_id $user_id]
 set date [calendar::adjust_date -date $date -julian_date $julian_date]