version-disable.tcl

Disables a version of a package.

Location:
/packages/acs-admin/www/apm/version-disable.tcl
Author:
Jon Salz [jsalz@arsdigita.com]
Created:
17 April 2000
CVS ID:
$Id: version-disable.tcl,v 1.6 2018/01/19 13:40:40 gustafn Exp $

Related Files

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {
    Disables a version of a package.
    @author Jon Salz [jsalz@arsdigita.com]
    @creation-date 17 April 2000
    @cvs-id $Id: version-disable.tcl,v 1.6 2018/01/19 13:40:40 gustafn Exp $
} {
    version_id:naturalnum,notnull
}

apm_version_disable -callback apm_dummy_callback $version_id

ad_returnredirect "version-view?version_id=$version_id"
ad_script_abort

# Local variables:
#    mode: tcl
#    tcl-indent-level: 4
#    indent-tabs-mode: nil
# End: