Index: openacs-4/packages/cms/www/modules/types/content-method-set-default.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/types/content-method-set-default.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/cms/www/modules/types/content-method-set-default.tcl	20 Apr 2001 20:51:10 -0000	1.1
+++ openacs-4/packages/cms/www/modules/types/content-method-set-default.tcl	24 May 2001 23:57:17 -0000	1.2
@@ -14,20 +14,16 @@
 }
 
 
-set db [template::begin_db_transaction]
-
-template::query set_content_method_default dml "
+db_transaction {
+    db_exec_plsql set_content_method_default "
   begin
   content_method.set_default_method (
       content_type   => :content_type,
       content_method => :content_method
   );
-  end;
-"
+  end;"
+}
 
-template::end_db_transaction
-template::release_db_handle
-
 content_method::flush_content_methods_cache $content_type
 
-template::forward $return_url
\ No newline at end of file
+template::forward $return_url