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.1 -r1.2
--- openacs-4/packages/cms/www/modules/types/mime-types.tcl	20 Apr 2001 20:51:10 -0000	1.1
+++ openacs-4/packages/cms/www/modules/types/mime-types.tcl	24 May 2001 23:57:17 -0000	1.2
@@ -5,16 +5,14 @@
 request create
 request set_param content_type -datatype keyword -value 'content_revision'
 
-set db [template::get_db_handle]
-
-query module_id onevalue "
+template::query get_module_id module_id onevalue "
   select module_id from cm_modules where key = 'types'
 "
 
 # permissions check - must have cm_examine
 content::check_access $module_id cm_examine -user_id [User::getID]
 
-template::query content_type_name onevalue "
+template::query get_name content_type_name onevalue "
   select
     pretty_name
   from
@@ -23,7 +21,7 @@
     object_type = :content_type
 "
 
-template::query unregistered_mime_types multilist "
+template::query get_unreg_mime_types unregistered_mime_types multilist "
   select
     label, mime_type
   from 
@@ -43,15 +41,12 @@
 set unregistered_mime_types_count [llength $unregistered_mime_types]
 
 if { [template::util::is_nil content_type_name] } {
-    template::release_db_handle
     ns_log Notice \
       "register-mime-types.tcl - ERROR:  BAD CONTENT_TYPE - $content_type"
     template::forward "index?id=content_revision"
 }
 
-set db [template::get_db_handle]
-
-template::query registered_mime_types multirow "
+template::query get_reg_mime_types registered_mime_types multirow "
   select 
     label, m.mime_type
   from
@@ -64,9 +59,6 @@
     label
 " 
   
-template::release_db_handle
-
-
 set page_title "Register MIME types to $content_type_name"
 
 
@@ -93,20 +85,20 @@
 
 if { [form is_valid register] } {
     form get_values register content_type mime_type
-    set db [template::begin_db_transaction]
 
-    template::query register_mime_type dml "
+    db_transaction {
+
+        db_exec_plsql register_mime_type "
       begin
         content_type.register_mime_type (
             content_type => :content_type,
             mime_type    => :mime_type
         );
       end;"
 
-    template::end_db_transaction
-    ns_db releasehandle $db
+    }
 
     content_method::flush_content_methods_cache $content_type
 
     template::forward "index?id=$content_type"
-}
\ No newline at end of file
+}