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
- packages/acs-content-repository/www/admin/mime-types/map.xql
- packages/acs-content-repository/www/admin/mime-types/map.tcl
- packages/acs-content-repository/www/admin/mime-types/map.adp
[ 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: