delete-presentation.tcl

This file prompts for user password to confirm deleting a presentation.

Location:

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

Author:

Haolan Qin <hqin@arsdigita.com>

Created:

01/22/2001

CVS ID:

$Id: delete-presentation.tcl,v 1.6 2015/06/27 20:34:41 gustafn Exp $

Related Files

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

[ hide source ] | [ make this the default ]

File Contents

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

ad_page_contract {
     
    This file prompts for user password to confirm deleting a presentation.

    @author Haolan Qin (hqin@arsdigita.com)
    @creation-date 01/22/2001
    @cvs-id $Id: delete-presentation.tcl,v 1.6 2015/06/27 20:34:41 gustafn Exp $
} {
    pres_item_id:naturalnum,notnull
    title:notnull
} -properties {
    context
    pres_item_id
}

permission::require_permission -object_id $pres_item_id -privilege wp_delete_presentation

set context [list [list [export_vars -base presentation-top {pres_item_id}] "$title"] "[_ wp-slim.Delete_Presentation]"]

ad_return_template