Index: openacs-4/packages/calendar/tcl/calendar-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/tcl/calendar-procs.xql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/calendar/tcl/calendar-procs.xql	15 Oct 2001 18:46:59 -0000	1.2
+++ openacs-4/packages/calendar/tcl/calendar-procs.xql	17 May 2003 10:20:50 -0000	1.3
@@ -28,4 +28,14 @@
     </querytext>
 </fullquery>
  
+<fullquery name="calendar_have_private_p.get_calendar_info_calendar_id_list">
+    <querytext>
+    select    calendar_id
+    from      calendars
+    where     owner_id = :party_id
+    and       private_p = 't'
+    and       calendar_id in ([join $calendar_id_list ", "])
+    </querytext>
+</fullquery>
+ 
 </queryset>