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 -N
--- openacs-4/packages/wp-slim/www/edit-presentation-2.tcl	22 Sep 2003 18:41:27 -0000	1.7
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,59 +0,0 @@
-# /packages/wp/www/edit-presentation-2.tcl
-ad_page_contract {
-     
-     @author paulk@arsdigita.com [paulk@arsdigita.com]
-     @creation-date Tue Nov 21 08:40:33 2000
-     @cvs-id $Id: edit-presentation-2.tcl,v 1.7 2003/09/22 18:41:27 rocaelh Exp $
-} {
-    pres_item_id:integer,notnull
-    pres_title
-    page_signature:html
-    copyright_notice:html
-    show_modified_p
-    public_p:notnull
-    style
-    audience:html
-    background:html
-}
-
-
-#added permission checking  roc@
-set user_id [ad_verify_and_get_user_id]
-permission::require_permission -party_id $user_id -object_id $pres_item_id -privilege wp_edit_presentation
-
-set creation_ip [ad_conn peeraddr]
-
-db_exec_plsql update_wp_presentation {
-    begin
-      wp_presentation.new_revision(
-      creation_user    => :user_id,
-      creation_ip      => :creation_ip,
-      creation_date    => sysdate,
-      pres_item_id     => :pres_item_id,
-      pres_title       => :pres_title,
-      page_signature   => :page_signature,
-      copyright_notice => :copyright_notice,
-      public_p         => :public_p,
-      show_modified_p  => :show_modified_p,
-      style            => :style,
-      audience         => :audience,
-      background       => :background
-      );
-    end;
-}
-
-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');
-        end;
-    }
-} 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;
-    }
-}
-
-ad_returnredirect "presentation-top?[export_url_vars pres_item_id]"