Index: openacs-4/packages/wp-slim/www/presentation-public-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/presentation-public-oracle.xql,v
diff -u -r1.1 -r1.1.14.1
--- openacs-4/packages/wp-slim/www/presentation-public-oracle.xql	4 Oct 2001 04:23:13 -0000	1.1
+++ openacs-4/packages/wp-slim/www/presentation-public-oracle.xql	9 Sep 2005 02:50:05 -0000	1.1.14.1
@@ -14,11 +14,11 @@
 </fullquery>
 
  
-<fullquery name="grant_public_read">      
+<fullquery name="revoke_public_read">      
       <querytext>
       
         begin
-          acs_permission.grant_permission(:pres_item_id,acs.magic_object_id('the_public'),'wp_view_presentation');
+          acs_permission.revoke_permission(:pres_item_id,acs.magic_object_id('the_public'),'wp_view_presentation');
         end;
     
       </querytext>
Index: openacs-4/packages/wp-slim/www/presentation-public-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/presentation-public-postgresql.xql,v
diff -u -r1.1 -r1.1.14.1
--- openacs-4/packages/wp-slim/www/presentation-public-postgresql.xql	4 Oct 2001 04:23:13 -0000	1.1
+++ openacs-4/packages/wp-slim/www/presentation-public-postgresql.xql	9 Sep 2005 02:50:05 -0000	1.1.14.1
@@ -12,11 +12,11 @@
 </fullquery>
 
  
-<fullquery name="grant_public_read">      
+<fullquery name="revoke_public_read">      
       <querytext>
   
 	select
-acs_permission__grant_permission(:pres_item_id,acs__magic_object_id('the_public'),'wp_view_presentation');
+acs_permission__revoke_permission(:pres_item_id,acs__magic_object_id('the_public'),'wp_view_presentation');
   
       </querytext>
 </fullquery>
Index: openacs-4/packages/wp-slim/www/presentation-public.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/presentation-public.tcl,v
diff -u -r1.2 -r1.2.2.1
--- openacs-4/packages/wp-slim/www/presentation-public.tcl	21 Dec 2004 22:06:47 -0000	1.2
+++ openacs-4/packages/wp-slim/www/presentation-public.tcl	9 Sep 2005 02:50:05 -0000	1.2.2.1
@@ -14,18 +14,10 @@
 
 ad_require_permission $pres_item_id wp_admin_presentation
 
-if {[regexp {t} $public_p]} {
-    db_exec_plsql grant_public_read {
-        begin
-          acs_permission.grant_permission(:pres_item_id,acs.magic_object_id('the_public'),'wp_view_presentation');
-        end;
-    }
+if {[string equal $public_p t]} {
+    db_exec_plsql grant_public_read {}
 } else {
-    db_exec_plsql grant_public_read {
-        begin
-          acs_permission.revoke_permission(:pres_item_id,acs.magic_object_id('the_public'),'wp_view_presentation');
-        end;
-    }
+    db_exec_plsql revoke_public_read {}
 }
 
 db_dml public_p_change {