Index: openacs-4/packages/calendar/www/cal-options.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/cal-options.adp,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/calendar/www/cal-options.adp	21 Jul 2003 19:21:36 -0000	1.4
+++ openacs-4/packages/calendar/www/cal-options.adp	22 Jul 2003 11:49:18 -0000	1.5
@@ -4,7 +4,13 @@
 <ul>
 <multiple name="calendars">
 <li> @calendars.calendar_name@
+<if @calendars.calendar_admin_p@ eq "t">
+  <br>
+  <font size=-2>[<a href="calendar-item-types?calendar_id=@calendars.calendar_id@">Manage Types</a>]</font>
+</if>
 </multiple>
 </ul>
 </if>
 
+<p>
+
Index: openacs-4/packages/calendar/www/cal-options.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/cal-options.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/calendar/www/cal-options.tcl	21 Jul 2003 19:21:36 -0000	1.5
+++ openacs-4/packages/calendar/www/cal-options.tcl	22 Jul 2003 11:49:18 -0000	1.6
@@ -23,7 +23,8 @@
     set calendar_list_sql "[join $calendar_list ","]"
 
     db_multirow calendars select_calendars "
-    select calendar_id, calendar_name
+    select calendar_id, calendar_name, 
+    acs_permission__permission_p(calendar_id, :user_id, 'calendar_admin') as calendar_admin_p
     from calendars
     where calendar_id in ($calendar_list_sql)
     "