Index: openacs-4/packages/cms/www/modules/categories/move.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/categories/move.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/cms/www/modules/categories/move.tcl	20 Apr 2001 20:51:10 -0000	1.1
+++ openacs-4/packages/cms/www/modules/categories/move.tcl	24 May 2001 01:30:52 -0000	1.2
@@ -17,26 +17,25 @@
 
 set clip [clipboard::parse_cookie]
 
-set db [template::begin_db_transaction]
+db_transaction {
 
-clipboard::map_code $clip $mount_point {
-  if { [catch { 
-     template::query move_keyword_item dml "
+    clipboard::map_code $clip $mount_point {
+        if { [catch { 
+            db_dml move_keyword_item "
        update cr_items set parent_id = $update_value
          where item_id = $item_id
          and exists (
            select 1 from cr_keywords where keyword_id = item_id
          )" 
-     template::query move_keyword_keyword dml "
+
+            db_dml move_keyword_keyword "
        update cr_keywords set parent_id = $update_value
          where keyword_id = $item_id" 
-  } errmsg] } {
-  }    
+        } errmsg] } {
+        }    
+    }
 }
 
-template::end_db_transaction
-template::release_db_handle
-
 clipboard::free $clip
 
 # Specify a null id so that the entire branch will be refreshed