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.6 -r1.7
--- openacs-4/packages/cms/www/modules/types/mime-types.tcl	13 Apr 2005 20:15:19 -0000	1.6
+++ openacs-4/packages/cms/www/modules/types/mime-types.tcl	9 May 2005 22:44:49 -0000	1.7
@@ -5,9 +5,8 @@
 request create
 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
+    -object_id [cm::modules::get_module_id -module_name types -package_id [ad_conn package_id]] -privilege read
 
 set content_type_name [db_string get_name ""]