Index: openacs-4/packages/static-pages/tcl/static-pages-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/static-pages/tcl/static-pages-procs-postgresql.xql,v
diff -u -N -r1.10 -r1.11
--- openacs-4/packages/static-pages/tcl/static-pages-procs-postgresql.xql	31 Oct 2001 16:43:28 -0000	1.10
+++ openacs-4/packages/static-pages/tcl/static-pages-procs-postgresql.xql	31 Oct 2001 17:15:55 -0000	1.11
@@ -109,9 +109,10 @@
 
 <fullquery name="sp_change_matching_permissions.grant_or_revoke_matching_permissions">
 	<querytext>
-	    begin
-
-		for file_row in (
+	declare file_row RECORD;
+	begin
+	
+		for file_row in 
 		    select static_page_id from static_pages
 		    where folder_id in (
 			select folder_id from sp_folders where
@@ -120,15 +121,16 @@
 				where folder_id = :root_folder_id)
    				) and
 			filename like '%${contained_string}%'
-		) loop
+		loop
 
 		    PERFORM acs_permission__${grant_or_revoke}_permission(
 			    file_row.static_page_id,
 			    acs__magic_object_id('the_public'),
 			    'general_comments_create'
 		    );
 	    end loop;
-	    end;
+return NULL;
+end;
 
 	</querytext>
 </fullquery>