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.9 -r1.10
--- openacs-4/packages/bug-tracker/www/bug-add.tcl	5 Mar 2003 17:41:04 -0000	1.9
+++ openacs-4/packages/bug-tracker/www/bug-add.tcl	28 Aug 2003 09:45:29 -0000	1.10
@@ -44,11 +44,10 @@
 	{label "Summary"} 
 	{html {size 50}}
     }
-    {found_in_version:text(select)
+    {found_in_version:text(select),optional 
         {label "Version"}  
         {options {[bug_tracker::version_get_options -include_unknown]}} 
         {value {[bug_tracker::conn user_version_id]}}
-        optional 
     }
 
     {return_url:text(hidden) {value $return_url}}
@@ -64,28 +63,30 @@
 }
 
 ad_form -extend -name bug -form {
-    {description:richtext(richtext)
+    {description:richtext(richtext),optional
         {label "Description"}
         {html {cols 60 rows 13}}
-        optional
     }
 
 }
 
 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