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 + + + + +