extensions.tcl
- Location:
- /packages/acs-content-repository/www/admin/mime-types/extensions.tcl
- Author:
- Emmanuelle Raffenne <eraffenne@gmail.com>
- Created:
- 22-feb-2010
- CVS ID:
$Id: extensions.tcl,v 1.2 2017/08/07 23:47:47 gustafn Exp $
Related Files
- packages/acs-content-repository/www/admin/mime-types/extensions.xql
- packages/acs-content-repository/www/admin/mime-types/extensions.tcl
- packages/acs-content-repository/www/admin/mime-types/extensions.adp
[ hide source ] | [ make this the default ]
File Contents
ad_page_contract { @author Emmanuelle Raffenne (eraffenne@gmail.com) @creation-date 22-feb-2010 @cvs-id $Id: extensions.tcl,v 1.2 2017/08/07 23:47:47 gustafn Exp $ } { mime_type:notnull } set mime_type_label [db_string get_mime_type {} -default $mime_type] set doc(title) "Extensions Mapped to $mime_type_label" set context [list [list "./" "Mime Types"] $doc(title)] set return_url [export_vars -base "extensions" {mime_type}] set actions [list "Add extension" [export_vars -base "map" {mime_type return_url}] ""] template::list::create \ -name extensions \ -multirow extensions \ -actions $actions \ -elements { mime_type { label "MIME type" } extension { label "Extension" } action { label "Action" link_url_col action_url } } db_multirow -extend {action action_url} extensions get_extensions {} { set action_url [export_vars -base "unmap" {mime_type extension return_url}] set action "Unmap" } # Local variables: # mode: tcl # tcl-indent-level: 4 # indent-tabs-mode: nil # End: