Index: openacs-4/packages/calendar/tcl/calendar-2-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/tcl/Attic/calendar-2-procs.xql,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/calendar/tcl/calendar-2-procs.xql	31 Jul 2002 21:12:07 -0000	1.4
+++ openacs-4/packages/calendar/tcl/calendar-2-procs.xql	26 Jul 2003 20:50:37 -0000	1.5
@@ -1,12 +1,11 @@
 <?xml version="1.0"?>
 <queryset>
 
-<fullquery name="calendar::adjust_calendar_list.select_calendar_list">
+<fullquery name="calendar::calendar_list.select_calendar_list">
 <querytext>
-select calendar_id from calendars
+select calendar_name, calendar_id, acs_permission__permission_p(calendar_id, :user_id, 'calendar_admin') as calendar_admin_p from calendars
 where package_id= :package_id
 and (private_p='f' or (private_p='t' and owner_id= :user_id))
-$sql_clause
 </querytext>
 </fullquery>