Index: openacs-4/packages/calendar/tcl/calendar-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/tcl/calendar-procs-postgresql.xql,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/calendar/tcl/calendar-procs-postgresql.xql	30 Nov 2002 17:27:51 -0000	1.5
+++ openacs-4/packages/calendar/tcl/calendar-procs-postgresql.xql	9 Jan 2004 20:36:13 -0000	1.6
@@ -68,4 +68,28 @@
 </fullquery>
 
  
+    <fullquery name="calendar::calendar_list.select_calendar_list">
+    <querytext>
+        select calendar_name, 
+               calendar_id, 
+               acs_permission__permission_p(calendar_id, :user_id, 'calendar_admin') as calendar_admin_p
+        from   calendars
+        where  (private_p = 'f' and package_id = :package_id $permissions_clause) or 
+               (private_p = 't' and owner_id = :user_id)
+        order  by private_p asc, upper(calendar_name)
+    </querytext>
+    </fullquery>
+
+    <partialquery name="calendar::calendar_list.permissions_clause">
+    <querytext>
+            and acs_permission__permission_p(calendar_id, :user_id, :privilege) = 't'
+    </querytext>
+    </partialquery>
+
+    <fullquery name="calendar::delete.delete_calendar">
+    <querytext>
+            select calendar__delete(:calendar_id)
+    </querytext>
+    </fullquery>
+
 </queryset>