Index: openacs-4/packages/cms/www/modules/types/unregister-template.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/types/unregister-template.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/cms/www/modules/types/unregister-template.tcl	20 Apr 2001 20:51:10 -0000	1.1
+++ openacs-4/packages/cms/www/modules/types/unregister-template.tcl	24 May 2001 23:57:17 -0000	1.2
@@ -8,17 +8,14 @@
 request set_param content_type -datatype keyword
 
 
-set db [template::begin_db_transaction]
-
-template::query unregister_template dml "
+db_transaction {
+    db_exec_plsql unregister_template "
   begin
     content_type.unregister_template(
       template_id  => :template_id,
       content_type => :content_type,
       use_context  => :context );
   end;"
+}
 
-template::end_db_transaction
-template::release_db_handle
-
 template::forward "../types/index?id=$content_type&mount_point=types"