Index: openacs-4/packages/cms/www/modules/types/unregister-mime-type.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/types/unregister-mime-type.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/cms/www/modules/types/unregister-mime-type.tcl	24 May 2001 23:57:17 -0000	1.2
+++ openacs-4/packages/cms/www/modules/types/unregister-mime-type.tcl	20 Aug 2002 04:18:00 -0000	1.3
@@ -9,9 +9,7 @@
 
 db_transaction {
 
-    template::query get_module_id module_id onevalue "
-  select module_id from cm_modules where key = 'types'
-" 
+    set module_id [db_string get_module_id ""]
 
     # permissions check - must have cm_write to unregister mime type
     content::check_access $module_id cm_write -user_id [User::getID]