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.7 -r1.8
--- openacs-4/packages/bug-tracker/tcl/bug-procs-oracle.xql	13 Jan 2005 13:56:15 -0000	1.7
+++ openacs-4/packages/bug-tracker/tcl/bug-procs-oracle.xql	24 Feb 2005 13:33:03 -0000	1.8
@@ -75,62 +75,7 @@
         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'
@@ -164,13 +109,60 @@
      allows user to break this assumption you'll also need to deal with
      this.
 -->
+<fullquery name="bug_tracker::bug::get_query.bugs_pagination">
+  <querytext>
+    select b.bug_id,
+         b.project_id,
+         b.bug_number,
+         b.summary,
+         lower(b.summary) as lower_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,
+         lower(submitter.first_names) as lower_submitter_first_names,
+         lower(submitter.last_name) as lower_submitter_last_name,
+         lower(submitter.email) as lower_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,
+         cas.case_id
+         $more_columns
+    from $from_bug_clause,
+         acs_users_all 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 cfsm.parent_enabled_action_id is null
+      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"]
+  </querytext>
+</fullquery>
+
 <fullquery name="bug_tracker::bug::get_query.bugs">
   <querytext>
 select q.*,
        km.keyword_id,
        assign_info.*
 from (
   select b.bug_id,
+         b.project_id,
          b.bug_number,
          b.summary,
          lower(b.summary) as lower_summary,
@@ -208,8 +200,7 @@
      and cfsm.parent_enabled_action_id is null
      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"]
+   [template::list::page_where_clause -and -name bugs -key bug_id]
 ) q,
   cr_item_keyword_map km,
   (select cru.user_id as assigned_user_id,
@@ -229,6 +220,7 @@
   ) assign_info
 where q.bug_id = km.item_id (+)
   and q.case_id = assign_info.case_id (+)
+[template::list::orderby_clause -orderby -name "bugs"]
 
   </querytext>
 </fullquery>
@@ -237,12 +229,12 @@
       <querytext>
           exists (select 1
                   from   workflow_case_assigned_actions aa,
-                         workflow_case_role_user_map crum
+                         workflow_case_role_party_map wcrpm
                   where  aa.case_id = cas.case_id
                   and    aa.action_id = $action_id
-                  and    crum.case_id (+) = aa.case_id
-                  and    crum.role_id (+) = aa.role_id
-                  and    crum.user_id is null
+                  and    wcrpm.case_id (+) = aa.case_id
+                  and    wcrpm.role_id (+) = aa.role_id
+                  and    wcrpm.party_id is null
                  )
       </querytext>
   </partialquery>