Index: openacs-4/packages/cms/www/modules/items/assign-keywords.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/items/assign-keywords.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/cms/www/modules/items/assign-keywords.tcl	20 Apr 2001 20:51:10 -0000	1.1
+++ openacs-4/packages/cms/www/modules/items/assign-keywords.tcl	24 May 2001 23:57:17 -0000	1.2
@@ -24,24 +24,22 @@
 
 set clip [clipboard::parse_cookie]
 
-set db [template::begin_db_transaction]
-
-clipboard::map_code $clip categories {
-  if { [catch { 
-     ns_ora exec_plsql_bind $db "
+db_transaction {
+    clipboard::map_code $clip categories {
+        if { [catch { 
+            db_exec_plsql item_assign "
         begin 
          :1 := content_keyword.item_assign(
           :root_id, :item_id, null, :user_id, :ip); 
-        end;" [list 1] symlink_id
-     lappend folder_list [list $mount_point $item_id]
+        end;"
+            lappend folder_list [list $mount_point $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