Index: openacs-4/packages/wp-slim/www/edit-presentation-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/Attic/edit-presentation-2.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/wp-slim/www/edit-presentation-2.tcl	4 Oct 2001 04:29:01 -0000	1.2
+++ openacs-4/packages/wp-slim/www/edit-presentation-2.tcl	15 Nov 2001 01:47:13 -0000	1.3
@@ -5,12 +5,12 @@
      @creation-date Tue Nov 21 08:40:33 2000
      @cvs-id
 } {
-    pres_item_id
+    pres_item_id:integer,notnull
     pres_title
     page_signature
     copyright_notice
     show_modified_p
-    public_p
+    public_p:notnull
     style
     audience
     background
@@ -39,7 +39,7 @@
     end;
 }
 
-if {[regexp {t} $public_p]} {
+if {$public_p == "t"} {
     db_exec_plsql grant_public_read {
         begin
           acs_permission.grant_permission(:pres_item_id,acs.magic_object_id('the_public'),'wp_view_presentation');