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 -N -r1.1 -r1.2
--- openacs-4/packages/cms/www/modules/types/unregister-mime-type.tcl	20 Apr 2001 20:51:10 -0000	1.1
+++ openacs-4/packages/cms/www/modules/types/unregister-mime-type.tcl	24 May 2001 23:57:17 -0000	1.2
@@ -6,26 +6,25 @@
 request set_param content_type -datatype keyword
 request set_param mime_type -datatype text
 
-set db [template::begin_db_transaction]
 
-template::query module_id onevalue "
+db_transaction {
+
+    template::query get_module_id module_id onevalue "
   select module_id from cm_modules where key = 'types'
 " 
 
-# permissions check - must have cm_write to unregister mime type
-content::check_access $module_id cm_write -user_id [User::getID]
+    # permissions check - must have cm_write to unregister mime type
+    content::check_access $module_id cm_write -user_id [User::getID]
 
-template::query unregister_mime_type dml "
+    db_exec_plsql unregister_mime_type "
   begin
     content_type.unregister_mime_type(
         content_type => :content_type,
         mime_type    => :mime_type
     );
   end;"
+}
 
-template::end_db_transaction
-template::release_db_handle
-
 content_method::flush_content_methods_cache $content_type
 
 template::forward "index?id=$content_type"