Index: openacs-4/packages/wp-slim/www/presentation-acl-add-group-3-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/presentation-acl-add-group-3-oracle.xql,v
diff -u -N -r1.1 -r1.1.4.1
--- openacs-4/packages/wp-slim/www/presentation-acl-add-group-3-oracle.xql	4 Oct 2001 04:23:13 -0000	1.1
+++ openacs-4/packages/wp-slim/www/presentation-acl-add-group-3-oracle.xql	11 Jun 2003 14:35:23 -0000	1.1.4.1
@@ -3,35 +3,12 @@
 <queryset>
    <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
 
-<fullquery name="group_add">      
+<fullquery name="permission_grant">      
       <querytext>
-      
-    declare
-        cursor v_cursor is
-        select member_id
-        from group_member_map
-        where group_id = :group_id;
-    begin
-        if :role = 'read' then
-            for c in v_cursor loop
-                acs_permission.grant_permission(:pres_item_id, c.member_id, 'wp_view_presentation');
-            end loop;
-        elsif (:role = 'write') then
-            for c in v_cursor loop
-                acs_permission.grant_permission(:pres_item_id, c.member_id, 'wp_view_presentation');
-                acs_permission.grant_permission(:pres_item_id, c.member_id, 'wp_edit_presentation');
-            end loop;
-        else
-            for c in v_cursor loop
-                acs_permission.grant_permission(:pres_item_id, c.member_id, 'wp_view_presentation');
-                acs_permission.grant_permission(:pres_item_id, c.member_id, 'wp_edit_presentation');
-                acs_permission.grant_permission(:pres_item_id, c.member_id, 'wp_admin_presentation');
-            end loop;
-        end if;
-    end;
-
+	begin
+		acs_permission.grant_permission(:pres_item_id, :member_id, :permission);
+	end;
       </querytext>
 </fullquery>
-
  
 </queryset>