map.tcl

Location:
/packages/acs-content-repository/www/admin/mime-types/map.tcl
Author:
Emmanuelle Raffenne <eraffenne@gmail.com>
Created:
22-feb-2010
CVS ID:
$Id: map.tcl,v 1.2 2017/08/07 23:47:47 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: map.tcl,v 1.2 2017/08/07 23:47:47 gustafn Exp $

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

set doc(title) "Add an extension"

set label [db_string get_mime_type {} -default $mime_type]

set context [list [list [export_vars -base "extensions" {mime_type}] "Extensions mapped to $label"] $doc(title)]

if { $return_url eq "" } {
    set return_url [export_vars -base "extensions" {mime_type}]
}

ad_form -name extension_new -export {return_url} -cancel_url $return_url -form {
    {mime_type:text(inform)
        {label "MIME type"}
        {html {size 25}}
    }
    {label:text(inform)
        {label "Description"}
        {html {size 50}}
    }
    {extension:text(text)
        {label "Extension"}
        {html {size 5}}
    }
} -on_request {
} -on_submit {

    cr_create_mime_type \
        -extension $extension \
        -mime_type $mime_type

} -after_submit {

    ad_returnredirect $return_url
    ad_script_abort

}

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