Index: openacs-4/packages/cms/www/modules/categories/keyword-assign.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/categories/keyword-assign.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/cms/www/modules/categories/keyword-assign.tcl	20 Apr 2001 20:51:10 -0000	1.1
+++ openacs-4/packages/cms/www/modules/categories/keyword-assign.tcl	24 May 2001 01:30:52 -0000	1.2
@@ -17,16 +17,18 @@
 set clip [clipboard::parse_cookie]
 
 set db [template::begin_db_transaction]
-clipboard::map_code $clip categories {
-  if { [catch { 
-     template::query assign_keyword dml "
+db_transaction {
+    clipboard::map_code $clip categories {
+        if { [catch { 
+            db_exec_plsql assign_keyword {
+
        begin content_keyword.item_assign(:resolved_id, :item_id); end;
-     "
-  } errmsg] } {
-  }    
+
+            }
+        } errmsg] } {
+        }    
+    }
 }
-template::end_db_transaction
-template::release_db_handle
 
 clipboard::free $clip