Index: openacs-4/packages/bug-tracker/tcl/bug-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/tcl/bug-procs.xql,v
diff -u -r1.4.4.3 -r1.4.4.4
--- openacs-4/packages/bug-tracker/tcl/bug-procs.xql	27 Jan 2005 02:29:32 -0000	1.4.4.3
+++ openacs-4/packages/bug-tracker/tcl/bug-procs.xql	1 Aug 2005 18:33:04 -0000	1.4.4.4
@@ -104,5 +104,13 @@
       </querytext>
   </partialquery>
 
+  <fullquery name="bug_tracker::bug::get_list.get_distributions">
+    <querytext>
+        select k.heading, k.keyword_id, (select count(*) from bt_bugs b where b.component_id in (select cm.component_id from bt_keyword_component_map cm where cm.keyword_id in (select kk.keyword_id from cr_keywords kk where kk.parent_id = k.keyword_id))) as num_bugs
+        from   cr_keywords k
+        where  k.parent_id = :component_keyword_id
+    </querytext>
+  </fullquery>
+
 </queryset>