Index: openacs-4/packages/cms/www/modules/templates/template-create.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/templates/template-create.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/cms/www/modules/templates/template-create.tcl	20 Apr 2001 20:51:10 -0000	1.1
+++ openacs-4/packages/cms/www/modules/templates/template-create.tcl	25 May 2001 02:15:56 -0000	1.2
@@ -47,10 +47,9 @@
       set parent_id [cm::modules::templates::getRootFolderID]
     }
  
+    db_transaction {
 
-    set db [template::begin_db_transaction]
-
-    ns_ora exec_plsql_bind $db "begin 
+        db_exec_plsql new_template "begin 
         :ret_val := content_template.new(
             template_id   => :template_id,
             name          => :name,
@@ -59,10 +58,8 @@
             creation_ip   => :ip_address
         );
         end;" ret_val
+    }
 
-    template::end_db_transaction
-    template::release_db_handle
-
     template::forward ../templates/template?template_id=$template_id
 }