Index: openacs-4/packages/wp-slim/www/create-presentation-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/Attic/create-presentation-2.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/wp-slim/www/create-presentation-2.tcl	20 Apr 2001 20:51:24 -0000	1.1
+++ openacs-4/packages/wp-slim/www/create-presentation-2.tcl	4 Oct 2001 04:29:01 -0000	1.2
@@ -1,15 +1,13 @@
-# /packages/wimpy-point/www/presentation-create-2.tcl
 ad_page_contract {
 
-    # This file actually creates the presentation.
      @author Paul Konigsberg (paul@arsdigita.com)     
      @creation-date Thu Nov  9 20:44:46 2000
      @cvs-id $Id$
 } {
-    { page_signature:html "" }
-    { copyright_notice:html "" }
     { audience:html "" }
     { background:html "" }
+    { page_signature:html "" }
+    { copyright_notice:html "" }
     pres_title:html,notnull
     { style:integer -1 }
     show_modified_p:notnull
@@ -18,19 +16,17 @@
 
 set package_id [ad_conn package_id]
 
-ad_require_permission $package_id wp_create_presentation
 
 
 set user_id [ad_verify_and_get_user_id]
 set creation_ip [ad_conn peeraddr]
 
-# We're inserting 
 set pres_item_id [db_exec_plsql wp_presentation_insert {
     begin        
       :1 := wp_presentation.new(
+      creation_date    => sysdate,
       creation_user    => :user_id,
       creation_ip      => :creation_ip,
-      creation_date    => sysdate,
       pres_title       => :pres_title,
       page_signature   => :page_signature,
       copyright_notice => :copyright_notice,
@@ -43,23 +39,5 @@
     end;
 }]
 
-db_exec_plsql grant_owner_access {
-    begin
-      acs_permission.grant_permission(:pres_item_id,:user_id,'wp_admin_presentation');
-      acs_permission.grant_permission(:pres_item_id,:user_id,'wp_view_presentation');
-      acs_permission.grant_permission(:pres_item_id,:user_id,'wp_edit_presentation');
-      acs_permission.grant_permission(:pres_item_id,:user_id,'wp_delete_presentation');
-    end;
-}
-
-if {[regexp {t} $public_p]} {
-    # -1 is the party id for 'the public'.
-    db_exec_plsql make_wp_presentation_public {
-        begin
-          acs_permission.grant_permission(:pres_item_id,acs.magic_object_id('the_public'),'wp_view_presentation');
-        end;
-    }
-}
-
 ad_returnredirect "presentation-top?[export_url_vars pres_item_id]"