unmap.tcl

Location:
/packages/acs-content-repository/www/admin/mime-types/unmap.tcl
Author:
Emmanuelle Raffenne <eraffenne@gmail.com>
Created:
22-feb-2010
CVS ID:
$Id: unmap.tcl,v 1.3 2018/01/19 21:23:51 gustafn Exp $

Related Files

[ hide source ]

File Contents

ad_page_contract {
   
    @author Emmanuelle Raffenne (eraffenne@gmail.com)
    @creation-date 22-feb-2010
    @cvs-id $Id: unmap.tcl,v 1.3 2018/01/19 21:23:51 gustafn Exp $

} {
    extension:notnull
    mime_type:notnull
    {return_url:localurl ""}
}

if { $return_url eq "" } {
    set return_url "index"
}

db_dml extension_unmap {}

ad_returnredirect $return_url
ad_script_abort

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