OpenACS

donb
committed
MAIN:donb:20090304030044
on 04 Mar 09
Changed edit priv to admin which is more likely to be what one wants.
/tcl/apm-callback-procs.tcl (+44)
  1 # /packages/acs-content-repository/tcl/apm-callback-procs.tcl
  2
  3 ad_library {
  4
  5     APM callbacks library
  6
  7     @creation-date July 2009
  8     @author  Emmanuelle Raffenne (eraffenne@gmail.com)
  9     @cvs-id $Id$
  10
  11 }
  12
  13 namespace eval content {}
  14 namespace eval content::apm {}
  15
  16 ad_proc -public content::apm::after_upgrade {
  17     {-from_version_name:required}
  18     {-to_version_name:required}
  19 } {
  20     APM callback executed on package upgrade.
  21 } {
  22     apm_upgrade_logic \
  23         -from_version_name $from_version_name \
  24         -to_version_name $to_version_name \
  25         -spec { 
  26             5.5.1d1 5.5.1d2 {   
  27                 set mimetype_list [list \
  28                                        {"application/vnd.openxmlformats-officedocument.spreadsheetml.sheet" "xlsx" "Microsoft Office Excel"} \
  29                                        {"application/vnd.openxmlformats-officedocument.spreadsheetml.template" "xltx" "Microsoft Office Excel Template"} \
  30                                        {"application/vnd.openxmlformats-officedocument.presentationml.presentation" "pptx" "Microsoft Office PowerPoint Presentation"} \
  31                                        {"application/vnd.openxmlformats-officedocument.presentationml.slideshow" "ppsx" "Microsoft Office PowerPoint Slideshow"} \
  32                                        {"application/vnd.openxmlformats-officedocument.presentationml.template" "potx" "Microsoft Office PowerPoint Template"} \
  33                                        {"application/vnd.openxmlformats-officedocument.wordprocessingml.document" "docx" "Microsoft Office Word"} \
  34                                        {"application/vnd.openxmlformats-officedocument.wordprocessingml.template" "dotx" "Microsoft Office Word Template"}]
  35
  36                 foreach elm $mimetype_list {
  37                     cr_create_mime_type \
  38                         -mime_type [lindex $elm 0]  \
  39                         -extension [lindex $elm 1]  \
  40                         -description [lindex $elm 2]
  41                 }
  42             }
  43         }
  44 }