Index: openacs-4/packages/wp-slim/www/edit-slide-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/Attic/edit-slide-2.tcl,v
diff -u -N
--- openacs-4/packages/wp-slim/www/edit-slide-2.tcl	29 Sep 2003 02:41:33 -0000	1.8
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,71 +0,0 @@
-# /packages/wp/www/edit-slide-2.tcl
-ad_page_contract {
-
-    # This file actually edits a slide.
-    @author Paul Konigsberg (paulk@arsdigita.com)
-    @creation-date Tue Nov 21 13:25:23 2000
-    @cvs-id $Id: edit-slide-2.tcl,v 1.8 2003/09/29 02:41:33 marka Exp $
-} {
-    slide_item_id:naturalnum,notnull
-    pres_item_id:naturalnum,notnull
-    slide_title
-    preamble:html
-    postamble:html
-    sort_key
-    original_slide_id
-    button
-    bullet:array,html
-    bullet_num:integer
-} -properties {
-    slide_item_id
-    pres_item_id
-    context
-    attachment_count
-}
-
-
-#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]
-
-# construct the list of bullet_items
-set bullet_items [list]
-for {set index 1} {$index <= [expr $bullet_num + 1]} {incr index} {
-    if {![empty_string_p $bullet($index)]} {
-        lappend bullet_items $bullet($index)
-    }
-}
-
-db_exec_plsql update_slide {
-    begin
-      wp_slide.new_revision (
-      creation_user     => :user_id,
-      creation_ip       => :creation_ip,
-      creation_date     => sysdate,
-      slide_item_id     => :slide_item_id,
-      slide_title       => :slide_title,
-      preamble          => :preamble,
-      postamble         => :postamble,
-      bullet_items      => :bullet_items,
-      original_slide_id => :original_slide_id,
-      sort_key          => :sort_key
-      );
-    end;
-}
-
-if {[regexp {Upload} $button]} {
-    db_1row get_presentation {}
-    set context [list [list "presentation-top?[export_url_vars pres_item_id]" "$pres_title"] [list "edit-slide?[export_url_vars slide_item_id pres_item_id]" "[_ wp-slim.Edit_Slide]"] "$slide_title"]
-    # get the number of attachments
-    set attachment_count [db_string get_number_of_attachments {
-	select count(1) 
-	from cr_items
-        where content_type = 'cr_wp_attachment'
-	and   parent_id = :slide_item_id
-    }]
-    ad_return_template upload-attachments
-} else {
-    ad_returnredirect presentation-top?[export_url_vars pres_item_id]
-}