cr_create_mime_type (private)
cr_create_mime_type -mime_type mime_type [ -extension extension ] \ [ -description description ]
Defined in packages/acs-content-repository/tcl/revision-procs.tcl
Creates a mime type if it does not exist. Also maps extension to mime_type (unless the extension is already mapped to another mime type or extension is empty).
- Switches:
- -mime_type
(required)- the mime_type to create
- -extension
(optional)- the default extension for the given mime type
- -description
(optional)- a plain text description of the mime type (< 200 characters)
- Author:
- Jeff Davis <davis@xarg.net>
- Partial Call Graph (max 5 caller/called nodes):
- Testcases:
- No testcase defined.
Source code: # # Convert "mime_type" and "extension" to lowercase since that is # the convention in the database. One should never pass in # anything that is not lowercased already but just be safe. # set mime_type [string tolower $mime_type] set extension [string tolower $extension] db_dml maybe_create_mime { insert into cr_mime_types (label, mime_type, file_extension) select :description, :mime_type, :extension from dual where not exists (select 1 from cr_mime_types where mime_type = :mime_type) } if { $extension ne "" } { db_dml maybe_map_extension { insert into cr_extension_mime_type_map (extension, mime_type) select :extension, :mime_type from dual where not exists (select 1 from cr_extension_mime_type_map where extension = :extension) } }XQL Not present: Generic PostgreSQL XQL file: packages/acs-content-repository/tcl/revision-procs-postgresql.xql
Oracle XQL file: packages/acs-content-repository/tcl/revision-procs-oracle.xql