Index: openacs-4/packages/bug-tracker/tcl/bug-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/tcl/bug-procs-oracle.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/bug-tracker/tcl/bug-procs-oracle.xql	5 Mar 2003 17:40:50 -0000	1.1
+++ openacs-4/packages/bug-tracker/tcl/bug-procs-oracle.xql	28 Sep 2003 01:28:18 -0000	1.2
@@ -52,4 +52,152 @@
   </fullquery>
 
 
+<fullquery name="bug_tracker::bug::delete.delete_bug_case">
+    <querytext> 
+        begin
+             workflow_case_pkg.delete(:case_id);
+        end;
+    </querytext>
+</fullquery>
+ 
+<fullquery name="bug_tracker::bug::delete.delete_notification">
+    <querytext>
+        begin
+             notification.delete(:notification_id);
+        end;
+    </querytext>
+</fullquery>
+
+<fullquery name="bug_tracker::bug::delete.delete_cr_item">
+    <querytext>
+        begin
+             content_item.delete(:bug_id);
+        end;
+    </querytext>
+</fullquery>
+ 
+
+<fullquery name="bug_tracker::bug::get_list.select_categories">
+  <querytext>
+        select kw.heading,
+               km.keyword_id,
+               count(b.bug_id)
+        from   cr_keywords kw,
+               cr_item_keyword_map km,
+               bt_bugs b
+        where  kw.parent_id = :parent_id
+        and    km.keyword_id = kw.keyword_id
+        and    b.bug_id (+) = km.item_id
+        and    b.project_id = :package_id
+        group  by kw.heading, km.keyword_id
+        order  by kw.heading
+
+  </querytext>
+</fullquery>
+
+<fullquery name="bug_tracker::bug::get_list.select_fix_for_versions">
+  <querytext>
+
+        select v.version_name,
+               b.fix_for_version,
+               count(b.bug_id) as num_bugs
+        from   bt_bugs b,
+               bt_versions v
+        where  b.project_id = :package_id
+        and    v.version_id (+) = b.fix_for_version
+        group  by b.fix_for_version, v.anticipated_freeze_date, v.version_name
+        order  by v.anticipated_freeze_date, v.version_name
+
+  </querytext>
+</fullquery>
+
+<fullquery name="bug_tracker::bug::get_list.select_action_assignees">
+  <querytext>
+    select p.first_names || ' ' || p.last_name as name,
+           crum.user_id,
+           count(b.bug_id) as num_bugs
+    from   bt_bugs b,
+           workflow_case_assigned_actions aa,
+           workflow_case_role_user_map crum,
+           persons p
+    where  b.project_id = :package_id
+    and    aa.workflow_id = :workflow_id
+    and    aa.action_id = :action_id
+    and    aa.object_id = b.bug_id
+    and    crum.case_id (+) = aa.case_id
+    and    crum.role_id (+) = aa.role_id
+    and    p.person_id (+) = crum.user_id
+    group  by p.first_names, p.last_name, crum.user_id
+  </querytext>
+</fullquery>
+
+  <partialquery name="bug_tracker::bug::get_list.category_where_clause">
+      <querytext>
+         content_keyword.is_assigned(b.bug_id, :f_category_$parent_id, 'none') = 't'
+      </querytext>
+  </partialquery>
+
+
+  <partialquery name="bug_tracker::bug::get_query.orderby_category_from_bug_clause">
+      <querytext>
+         , cr_item_keyword_map km_order,
+         cr_keywords kw_order
+      </querytext>
+  </partialquery>
+ 
+  <partialquery name="bug_tracker::bug::get_query.orderby_category_where_clause">
+      <querytext>
+           and km_order.item_id (+) = b.bug_id
+           and km_order.keyword_id = kw_order.keyword_id 
+           and kw_order.parent_id = '[db_quote $orderby_parent_id]'
+      </querytext>
+  </partialquery>
+
+<fullquery name="bug_tracker::bug::get_query.bugs">
+  <querytext>
+    
+    select q.*,
+           km.keyword_id
+    from (
+        select b.bug_id,
+               b.bug_number,
+               b.summary,
+               b.comment_content,
+               b.comment_format,
+               b.component_id,
+               b.creation_date,
+               to_char(b.creation_date, 'fmMM/DDfm/YYYY') as creation_date_pretty,
+               b.creation_user as submitter_user_id,
+               submitter.first_names as submitter_first_names,
+               submitter.last_name as submitter_last_name,
+               submitter.email as submitter_email,
+               st.pretty_name as pretty_state,
+               st.short_name as state_short_name,
+               st.state_id,
+               st.hide_fields,
+               b.resolution,
+               b.found_in_version,
+               b.fix_for_version,
+               b.fixed_in_version
+        from   $from_bug_clause,
+               cc_users submitter,
+               workflow_cases cas,
+               workflow_case_fsm cfsm,
+               workflow_fsm_states st 
+        where  submitter.user_id = b.creation_user
+        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 
+        $orderby_category_where_clause
+        [template::list::filter_where_clauses -and -name "bugs"]
+        [template::list::orderby_clause -orderby -name "bugs"]
+    ) q,
+    cr_item_keyword_map km
+  where km.item_id (+) = q.bug_id
+
+  </querytext>
+</fullquery>
+
+
 </queryset>