Index: openacs-4/packages/calendar/tcl/calendar-2-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/tcl/Attic/calendar-2-procs-oracle.xql,v
diff -u -r1.2.2.1 -r1.2.2.2
--- openacs-4/packages/calendar/tcl/calendar-2-procs-oracle.xql	24 Nov 2003 16:39:26 -0000	1.2.2.1
+++ openacs-4/packages/calendar/tcl/calendar-2-procs-oracle.xql	25 Nov 2003 00:07:19 -0000	1.2.2.2
@@ -9,9 +9,24 @@
                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) or (private_p = 't' and owner_id = :user_id)
+        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>
+            begin
+                calendar.del(:calendar_id);
+            end;
+    </querytext>
+    </fullquery>
+
 </queryset>