Index: openacs-4/packages/bug-tracker/tcl/bug-tracker-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/tcl/bug-tracker-procs.tcl,v
diff -u -r1.25.2.6 -r1.25.2.7
--- openacs-4/packages/bug-tracker/tcl/bug-tracker-procs.tcl	27 Jan 2005 02:29:32 -0000	1.25.2.6
+++ openacs-4/packages/bug-tracker/tcl/bug-tracker-procs.tcl	19 Feb 2005 18:24:09 -0000	1.25.2.7
@@ -777,6 +777,30 @@
 }
 
 
+ad_proc bug_tracker::assignee_get_options {
+    -workflow_id
+    -include_unknown:boolean
+    -include_undecided:boolean
+} {
+    Returns an option list containing all users that have submitted or assigned to a bug.
+    Used for the add bug form. Added because the workflow api requires a case_id.  
+    (an item to evaluate is refactoring workflow to provide an assignee widget without a case_id)
+} {
+   
+    set assignee_list [db_list_of_lists assignees {}]
+
+    if { $include_unknown_p } {
+        set assignee_list [concat { { "Unknown" "" } } $assignee_list]
+    } 
+    
+    if { $include_undecided_p } {
+        set assignee_list [concat { { "Undecided" "" } } $assignee_list]
+    } 
+    
+    return $assignee_list
+}
+
+
 ad_proc bug_tracker::versions_p {
     {-package_id ""}
 } { 
@@ -803,6 +827,8 @@
     return $versions_list
 }
 
+
+
 ad_proc bug_tracker::version_get_name {
     {-package_id ""}
     {-version_id:required}