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.2 -r1.3
--- openacs-4/packages/bug-tracker/tcl/bug-procs.xql	28 Aug 2003 09:45:29 -0000	1.2
+++ openacs-4/packages/bug-tracker/tcl/bug-procs.xql	28 Sep 2003 01:28:18 -0000	1.3
@@ -1,6 +1,30 @@
 <?xml version="1.0"?>
 <queryset>
 
+<fullquery name="bug_tracker::bug::delete.get_case_id">
+    <querytext>
+        select case_id
+        from   workflow_cases
+        where  object_id = :bug_id
+    </querytext>
+</fullquery>
+
+<fullquery name="bug_tracker::bug::delete.get_notifications">
+    <querytext>
+        select notification_id
+        from   notifications
+        where  response_id = :bug_id
+    </querytext>
+</fullquery>
+
+<fullquery name="bug_tracker::bug::delete.unset_revisions">
+    <querytext>
+        update cr_items
+        set live_revision = null, latest_revision = null
+        where item_id = :bug_id
+    </querytext>
+</fullquery>
+
   <fullquery name="bug_tracker::bug::get_activity_html.actions">
     <querytext>
       select ba.action_id,
@@ -60,5 +84,42 @@
     </querytext>
   </fullquery>
 
+<fullquery name="bug_tracker::bug::get_list.select_states">
+  <querytext>
+    select st.pretty_name,
+           st.state_id,
+           count(b.bug_id)
+    from   workflow_fsm_states st,
+           bt_bugs b,
+           workflow_cases cas,
+           workflow_case_fsm cfsm
+    where  st.workflow_id = :workflow_id
+    and    b.project_id = :package_id
+    and    cas.workflow_id = :workflow_id
+    and    cas.object_id = b.bug_id
+    and    cfsm.case_id = cas.case_id
+    and    st.state_id = cfsm.current_state
+    group  by st.state_id, st.pretty_name, st.sort_order
+    order  by st.sort_order
+  </querytext>
+</fullquery>
+
+
+<fullquery name="bug_tracker::bug::get_list.select_components">
+  <querytext>
+
+    select c.component_name,
+           c.component_id,
+           count(b.bug_id) as num_bugs
+     from  bt_bugs b,
+           bt_components c
+     where b.project_id = :package_id
+     and   c.component_id = b.component_id
+     group by c.component_name, c.component_id
+     order by c.component_name
+
+  </querytext>
+</fullquery>
+ 
 </queryset>