version-callback-delete.tcl

Location:

/packages/acs-admin/www/apm/version-callback-delete.tcl

Author:

Peter Marklund

Created:

28 January 2003

CVS ID:

$Id: version-callback-delete.tcl,v 1.4 2018/01/19 13:40:40 gustafn Exp $

Related Files

• packages/acs-admin/www/apm/version-callback-delete.tcl

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {

    @author Peter Marklund
    @creation-date 28 January 2003
    @cvs-id $Id: version-callback-delete.tcl,v 1.4 2018/01/19 13:40:40 gustafn Exp $  
} {
    version_id:naturalnum,notnull    
    type:notnull
}

set package_key [apm_package_key_from_version_id $version_id]
apm_remove_callback_proc -type $type -package_key $package_key

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

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