delete-slide.tcl

Confirm page for deleting a slide.

Location:

/packages/wp-slim/www/delete-slide.tcl

Author:

Haolan Qin <hqin@arsdigita.com>

Created:

01/22/2001

CVS ID:

$Id: delete-slide.tcl,v 1.7 2005/03/01 00:01:46 jeffd Exp $

Related Files

• packages/wp-slim/www/delete-slide.tcl
• packages/wp-slim/www/delete-slide.adp

[ hide source ] | [ make this the default ]

File Contents

# /packages/wp/www/delete-slide.tcl

ad_page_contract {
     
    Confirm page for deleting a slide.

    @author Haolan Qin (hqin@arsdigita.com)
    @creation-date 01/22/2001
    @cvs-id $Id: delete-slide.tcl,v 1.7 2005/03/01 00:01:46 jeffd Exp $
} {
    slide_item_id:naturalnum,notnull
    pres_item_id:naturalnum,notnull
    slide_title
}


#added permission checking  roc@
set user_id [ad_conn user_id]
permission::require_permission -party_id $user_id -object_id $pres_item_id -privilege wp_delete_presentation

set context [list "[_ wp-slim.Delete_a_Slide]"]

ad_return_template