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.12 -r1.13
--- openacs-4/packages/bug-tracker/www/bug-add.tcl	29 Mar 2004 15:07:34 -0000	1.12
+++ openacs-4/packages/bug-tracker/www/bug-add.tcl	24 Feb 2005 13:33:04 -0000	1.13
@@ -21,9 +21,12 @@
 set project_name [bug_tracker::conn project_name]
 set package_id [ad_conn package_id]
 set package_key [ad_conn package_key]
+
 set Bug_name [bug_tracker::conn Bug]
 set page_title [_ bug-tracker.New_1]
 
+set workflow_id [bug_tracker::bug::get_instance_workflow_id]
+
 set context [list $page_title]
 
 set user_id [ad_conn user_id]
@@ -49,7 +52,17 @@
         {options {[bug_tracker::version_get_options -include_unknown]}} 
         {value {[bug_tracker::conn user_version_id]}}
     }
+    {fix_for_version:text(select),optional 
+        {label "Fix For Version"}  
+        {options {[bug_tracker::version_get_options -include_unknown]}} 
+        {value {[bug_tracker::conn user_version_id]}}
+    }
 
+    {assign_to:text(select),optional 
+        {label "Assign to"}  
+        {options {[bug_tracker::assignee_get_options -workflow_id $workflow_id -include_unknown]}} 
+    }
+
     {return_url:text(hidden) {value $return_url}}
 }
 foreach {category_id category_name} [bug_tracker::category_types] {
@@ -62,6 +75,7 @@
     ]
 }
 
+
 ad_form -extend -name bug -form {
     {description:richtext(richtext),optional
         {label "[_ bug-tracker.Description]"}
@@ -86,8 +100,11 @@
 	-summary $summary \
 	-description [template::util::richtext::get_property contents $description] \
 	-desc_format [template::util::richtext::get_property format $description] \
-        -keyword_ids $keyword_ids
-        
+        -keyword_ids $keyword_ids \
+	-fix_for_version $fix_for_version \
+	-assign_to $assign_to
+
+
 } -after_submit {
     bug_tracker::bugs_exist_p_set_true