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.2 -r1.3
--- openacs-4/packages/calendar/tcl/calendar-2-procs.xql	3 Jun 2002 04:08:17 -0000	1.2
+++ openacs-4/packages/calendar/tcl/calendar-2-procs.xql	3 Jun 2002 07:20:02 -0000	1.3
@@ -5,13 +5,14 @@
 <querytext>
 select calendar_id from calendars
 where package_id= :package_id
+and (private_p='f' or (private_p='t' and owner_id= :user_id))
 $sql_clause
 </querytext>
 </fullquery>
 
 <fullquery name="calendar::get_item_types.select_item_types">
 <querytext>
-select item_type_id, type from cal_item_types
+select type, item_type_id from cal_item_types
 where calendar_id= :calendar_id
 </querytext>
 </fullquery>