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)
     "