Index: openacs-4/packages/acs-subsite/www/admin/rel-types/delete-2-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/rel-types/delete-2-postgresql.xql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-subsite/www/admin/rel-types/delete-2-postgresql.xql 20 Aug 2001 05:15:29 -0000 1.3
+++ openacs-4/packages/acs-subsite/www/admin/rel-types/delete-2-postgresql.xql 28 Nov 2001 18:39:39 -0000 1.4
@@ -17,4 +17,28 @@
+
+
+
+ select r.rel_id
+ from acs_rels r
+ where acs_permission__permission_p(r.rel_id, :user_id, 'delete')
+ and r.rel_type = :rel_type
+
+
+
+
+
+
+
+
+ select s.segment_id
+ from rel_segments s
+ where acs_permission__permission_p(s.segment_id, :user_id, 'delete')
+ and s.rel_type = :rel_type
+
+
+
+
+