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 -N -r1.32.2.1 -r1.32.2.2 --- openacs-4/packages/bug-tracker/tcl/bug-tracker-procs.tcl 22 Sep 2005 05:13:06 -0000 1.32.2.1 +++ openacs-4/packages/bug-tracker/tcl/bug-tracker-procs.tcl 7 Nov 2005 19:40:53 -0000 1.32.2.2 @@ -123,6 +123,7 @@ page:optional f_state:optional f_fix_for_version:optional + f_distribution:optional f_component:optional orderby:optional {format "table"} @@ -145,6 +146,7 @@ set export_vars { f_state f_fix_for_version + f_distribution f_component orderby format @@ -843,6 +845,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 ""} } { @@ -1376,3 +1402,12 @@ -package_id $package_id \ -workflow_id $workflow_id]] } + +ad_proc bug_tracker::get_component_keyword { + {-package_id:required} +} { + @param package_id The package (project) to select from +} { + return [db_string get_component_keyword { select component_keyword_id from bt_projects where project_id = :package_id }] +} +