new.tcl
- Location:
- /packages/acs-content-repository/www/admin/mime-types/new.tcl
- Author:
- Emmanuelle Raffenne <eraffenne@gmail.com>
- Created:
- 22-feb-2010
- CVS ID:
$Id: new.tcl,v 1.2 2017/08/07 23:47:47 gustafn Exp $
Related Files
- packages/acs-content-repository/www/admin/mime-types/new.tcl
- packages/acs-content-repository/www/admin/mime-types/new.adp
[ hide source ]
File Contents
ad_page_contract { @author Emmanuelle Raffenne (eraffenne@gmail.com) @creation-date 22-feb-2010 @cvs-id $Id: new.tcl,v 1.2 2017/08/07 23:47:47 gustafn Exp $ } { {return_url:localurl ""} } set doc(title) "Create a new MIME Type" set context [list [list "./" "MIME types"] $doc(title)] if { $return_url eq "" } { set return_url "./" } ad_form -name mime_type_new -export {return_url} -cancel_url $return_url -form { {mime_type:text(text) {label "MIME type"} {html {size 25}} } {label:text(text) {label "Description"} {html {size 50}} } {extension:text(text),optional {label "Default extension"} {html {size 5}} } } -on_request { } -on_submit { cr_create_mime_type \ -extension $extension \ -mime_type $mime_type \ -description $label } -after_submit { ad_returnredirect $return_url ad_script_abort } # Local variables: # mode: tcl # tcl-indent-level: 4 # indent-tabs-mode: nil # End: