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 ]

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: