Index: openacs-4/packages/static-pages/static-pages.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/static-pages/static-pages.info,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/static-pages/static-pages.info	30 Oct 2001 17:06:49 -0000	1.9
+++ openacs-4/packages/static-pages/static-pages.info	31 Oct 2001 17:15:55 -0000	1.10
@@ -52,6 +52,8 @@
             <file type="content_page" path="www/admin/commentability-toggle.tcl"/>
             <file type="content_page" path="www/admin/commentability.adp"/>
             <file type="content_page" path="www/admin/commentability.tcl"/>
+            <file type="query_file" path="www/admin/display-policy-toggle-orcale.xql"/>
+            <file type="query_file" db_type="postgresql" path="www/admin/display-policy-toggle-postgresql.xql"/>
             <file type="content_page" path="www/admin/display-policy-toggle.tcl"/>
             <file type="content_page" path="www/admin/fs-scan-progress.tcl"/>
             <file type="content_page" path="www/admin/fs-scan.adp"/>
Index: openacs-4/packages/static-pages/sql/postgresql/static-pages-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/static-pages/sql/postgresql/static-pages-create.sql,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/static-pages/sql/postgresql/static-pages-create.sql	30 Oct 2001 21:53:56 -0000	1.13
+++ openacs-4/packages/static-pages/sql/postgresql/static-pages-create.sql	31 Oct 2001 17:15:55 -0000	1.14
@@ -702,8 +702,8 @@
                 p_grantee_id	alias for $2;
                 p_privilege	alias for $3;
                 p_recursive_p	alias for $4;
-		v_file_row	static_pages%ROWTYPE;
-		v_folder_row	sp_folders%ROWTYPE;
+		v_file_row	RECORD;
+		v_folder_row	RECORD;
         begin
                 if p_recursive_p = ''t'' then
                         -- For each folder that is a descendant of item_id, grant.
@@ -757,8 +757,8 @@
                 p_grantee_id	alias for $2;
                 p_privilege	alias for $3;
                 p_recursive_p	alias for $4;
-		v_file_row	static_pages%ROWTYPE;
-		v_folder_row	sp_folders%ROWTYPE;
+		v_file_row	RECORD;
+		v_folder_row	RECORD;
         begin
                 if p_recursive_p = ''t'' then
                         -- For each folder that is a descendant of item_id, revoke.
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 -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>
Index: openacs-4/packages/static-pages/www/admin/commentability-contain.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/static-pages/www/admin/commentability-contain.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/static-pages/www/admin/commentability-contain.tcl	20 Apr 2001 20:51:22 -0000	1.1
+++ openacs-4/packages/static-pages/www/admin/commentability-contain.tcl	31 Oct 2001 17:15:55 -0000	1.2
@@ -6,10 +6,11 @@
     @creation-date 2001-02-21
     @cvs-id $Id$
 } {
-    contained_string
     change_option
+    {contained_string ""}
 }
 
+
 set root_folder_id [sp_root_folder_id [ad_conn package_id]]
 
 switch $change_option {
Index: openacs-4/packages/static-pages/www/admin/commentability.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/static-pages/www/admin/commentability.adp,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/static-pages/www/admin/commentability.adp	20 Apr 2001 20:51:22 -0000	1.1
+++ openacs-4/packages/static-pages/www/admin/commentability.adp	31 Oct 2001 17:15:55 -0000	1.2
@@ -26,7 +26,8 @@
 <form action="commentability-contain">
 Or change all files whose full paths contain:
 <table>
-<tr><td colspan=3><input type=text size=80 maxlength=80 name=contained_string>
+<tr><td colspan=3><input type=text size=80 maxlength=80
+name=contained_string value="">
 <br><font size=-1>
 For example, <code>w/doc</code> will match <code>@acs_root@/www/doc/foobar.html</code>
 and <code>@acs_root@/www/cow/doctor.html</code>.