Index: openacs-4/packages/bug-tracker/tcl/bug-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/tcl/bug-procs.tcl,v
diff -u -r1.14.2.8 -r1.14.2.9
--- openacs-4/packages/bug-tracker/tcl/bug-procs.tcl	19 Feb 2005 18:24:09 -0000	1.14.2.8
+++ openacs-4/packages/bug-tracker/tcl/bug-procs.tcl	1 Aug 2005 18:33:04 -0000	1.14.2.9
@@ -829,6 +829,19 @@
                  orderby_asc {heading asc, bug_number asc}]
     }
 
+
+    set component_keyword_id [bug_tracker::get_component_keyword -package_id $package_id]
+
+    set distributions [db_list_of_lists get_distributions {}]
+        
+    if {[llength distributions] > 0} {
+        lappend filters f_distribution \
+            [list \
+                 label Distributions \
+                 values $distributions \
+                 where_clause "b.component_id in (select bkcm.component_id from cr_keywords ck, bt_keyword_component_map bkcm where ck.parent_id = :f_distribution and ck.keyword_id = bkcm.keyword_id)"]
+    }
+
     if { [bug_tracker::versions_p] } {
         lappend filters f_fix_for_version {
             label "Fix for version"