attach-del.tcl

# This file displays details about an attachment

Location:
/packages/wp-slim/www/attach-del.tcl
Author:
Haolan Qin <hqin@arsdigita.com>
Created:
Fri Dec 8 13:17:49 2000
CVS ID:
$Id: attach-del.tcl,v 1.9 2015/06/27 20:34:41 gustafn Exp $

Related Files

[ hide source ] | [ make this the default ]

File Contents

# /packages/wp/www/attach-del.tcl

ad_page_contract {

    # This file displays details about an attachment

     @author Haolan Qin (hqin@arsdigita.com)
     @creation-date Fri Dec 8 13:17:49 2000
     @cvs-id $Id: attach-del.tcl,v 1.9 2015/06/27 20:34:41 gustafn Exp $
} {
    slide_item_id:naturalnum,notnull
    attach_item_id:naturalnum,notnull
    pres_item_id:naturalnum,notnull
}

#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


db_exec_plsql revisions_and_item_delete {
    begin
        wp_attachment.del(:attach_item_id);
    end;
}
    
ad_returnredirect [export_vars -base attach-list {slide_item_id pres_item_id}]