Index: openacs-4/packages/bug-tracker/www/bug-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/www/bug-add.tcl,v
diff -u -r1.7.2.2 -r1.7.2.3
--- openacs-4/packages/bug-tracker/www/bug-add.tcl	2 May 2003 12:49:11 -0000	1.7.2.2
+++ openacs-4/packages/bug-tracker/www/bug-add.tcl	5 May 2003 10:17:26 -0000	1.7.2.3
@@ -71,19 +71,22 @@
 }
 
 ad_form -extend -name bug -new_data {
+
+    set keyword_ids [list]
+    foreach {category_id category_name} [bug_tracker::category_types] {
+        # -singular not required here since it's a new bug
+        lappend keyword_ids [element get_value bug $category_id]
+    }
+
     bug_tracker::bug::new \
 	-bug_id $bug_id \
 	-package_id $package_id \
 	-component_id $component_id \
 	-found_in_version $found_in_version \
 	-summary $summary \
 	-description [template::util::richtext::get_property contents $description] \
-	-desc_format [template::util::richtext::get_property format $description] 
-
-    foreach {category_id category_name} [bug_tracker::category_types] {
-        # -singular not required here since it's a new bug
-        cr::keyword::item_assign -item_id $bug_id -keyword_id [element get_value bug $category_id]
-    }
+	-desc_format [template::util::richtext::get_property format $description] \
+        -keyword_ids $keyword_ids
         
 } -after_submit {
     bug_tracker::bugs_exist_p_set_true