repository-types-delete.tcl

Delete an archive type.

Location:
/packages/download/www/admin/repository-types-delete.tcl
Author:
jbank@arsdigita.com [jbank@arsdigita.com]
Created:
Tue Dec 12 16:46:37 2000
CVS ID:
$Id: repository-types-delete.tcl,v 1.5 2018/01/20 22:42:17 gustafn Exp $

Related Files

[ hide source ] | [ make this the default ]

File Contents

# /packages/download/www/admin/repository-reasons-delete.tcl
ad_page_contract {
     Delete an archive type.
     @author jbank@arsdigita.com [jbank@arsdigita.com]
     @creation-date Tue Dec 12 16:46:37 2000
     @cvs-id $Id: repository-types-delete.tcl,v 1.5 2018/01/20 22:42:17 gustafn Exp $
} {
    archive_type_id:naturalnum,notnull
}

set repository_id [download_repository_id]
permission::require_permission -object_id $repository_id -privilege "admin"

db_dml type_delete {
    delete from download_archive_types where repository_id = :repository_id and archive_type_id = :archive_type_id
}

ad_returnredirect "repository-types"
ad_script_abort