Index: openacs-4/packages/calendar/tcl/calendar-2-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/tcl/Attic/calendar-2-procs-postgresql.xql,v
diff -u -r1.2.2.1 -r1.2.2.2
--- openacs-4/packages/calendar/tcl/calendar-2-procs-postgresql.xql 24 Nov 2003 16:39:26 -0000 1.2.2.1
+++ openacs-4/packages/calendar/tcl/calendar-2-procs-postgresql.xql 25 Nov 2003 00:07:19 -0000 1.2.2.2
@@ -7,11 +7,24 @@
select calendar_name,
calendar_id,
- acs_permission__permission_p(calendar_id, :user_id, 'calendar_admin') as calendar_admin_p
+ 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)
+
+
+ and acs_permission__permission_p(calendar_id, :user_id, :privilege) = 't'
+
+
+
+
+
+ select calendar__delete(:calendar_id)
+
+
+