Index: openacs-4/packages/wp-slim/www/presentation-acl-add-group-3-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/presentation-acl-add-group-3-postgresql.xql,v
diff -u -r1.1 -r1.1.4.1
--- openacs-4/packages/wp-slim/www/presentation-acl-add-group-3-postgresql.xql	4 Oct 2001 04:23:13 -0000	1.1
+++ openacs-4/packages/wp-slim/www/presentation-acl-add-group-3-postgresql.xql	11 Jun 2003 14:35:23 -0000	1.1.4.1
@@ -3,42 +3,12 @@
 <queryset>
    <rdbms><type>postgresql</type><version>7.1</version></rdbms>
 
-<fullquery name="group_add">      
+<fullquery name="permission_grant">      
       <querytext>
-
-
-	select
-          if :role = ''read'' then
-            for record in select member_id
-              from group_member_map
-              where group_id = :group_id;
-            loop
-                 acs_permission__grant_permission(:pres_item_id, c.member_id,''wp_view_presentation'');
-            end loop;
-        else if (:role = ''write'') then
-            for record in select member_id
-              from group_member_map
-              where group_id = :group_id;
-              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 record in select member_id
-              from group_member_map
-              where group_id = :group_id;
-             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;
-
- 
+	begin
+		perform acs_permission__grant_permission(:pres_item_id, :member_id, :permission);
+		return 0;
+	end;
       </querytext>
 </fullquery>