Index: openacs-4/packages/cms/www/modules/templates/copy.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/templates/copy.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/cms/www/modules/templates/copy.tcl	20 Apr 2001 20:51:10 -0000	1.1
+++ openacs-4/packages/cms/www/modules/templates/copy.tcl	25 May 2001 02:15:56 -0000	1.2
@@ -10,23 +10,22 @@
 
   if { $submit == "Copy" } {
 
-    set db [begin_db_transaction]
-    set creation_user [User::getID]
-    set creation_ip [ns_conn peeraddr]
+      db_transaction {
+          set creation_user [User::getID]
+          set creation_ip [ns_conn peeraddr]
 
-    foreach template_id [ns_querygetall template_id] {
-      ns_ora dml $db "declare copy_id integer; begin 
+          foreach template_id [ns_querygetall template_id] {
+              db_exec_plsql copy_item "declare copy_id integer; begin 
         copy_id := content_item.copy2(
           :template_id, :folder_id, :creation_user, :creation_ip
         );
         insert into cr_templates (template_id) values (copy_id);
       end;"
-    }
-
-    end_db_transaction
+          }
+      }
   }
 
   template::forward [ns_queryget return_url]
 }
 
-query path onevalue "select content_item.get_path(:folder_id) from dual"
\ No newline at end of file
+template::query get_path path onevalue "select content_item.get_path(:folder_id) from dual"