Index: openacs-4/packages/cms/www/modules/types/mime-types.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/types/mime-types.tcl,v diff -u -r1.5 -r1.6 --- openacs-4/packages/cms/www/modules/types/mime-types.tcl 16 Nov 2004 22:32:52 -0000 1.5 +++ openacs-4/packages/cms/www/modules/types/mime-types.tcl 13 Apr 2005 20:15:19 -0000 1.6 @@ -6,10 +6,9 @@ request set_param content_type -datatype keyword -value 'content_revision' set module_id [db_string get_module_id ""] +permission::require_permission -party_id [auth::require_login] \ + -object_id $module_id -privilege read -# permissions check - must have cm_examine -content::check_access $module_id cm_examine -user_id [auth::require_login] - set content_type_name [db_string get_name ""] set unregistered_mime_types [db_list_of_lists get_unreg_mime_types ""]