Index: openacs-4/packages/bug-tracker/tcl/bug-tracker-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/tcl/bug-tracker-procs-oracle.xql,v
diff -u -N -r1.7 -r1.8
--- openacs-4/packages/bug-tracker/tcl/bug-tracker-procs-oracle.xql	17 Jun 2010 18:51:45 -0000	1.7
+++ openacs-4/packages/bug-tracker/tcl/bug-tracker-procs-oracle.xql	23 Nov 2017 15:10:37 -0000	1.8
@@ -3,189 +3,42 @@
 <queryset>
    <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
 
-<fullquery name="bug_tracker::bug_notify.bug">      
-      <querytext>
-        select b.bug_id,
-               b.bug_number,
-               b.summary,
-               b.project_id,
-               o.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,
-               b.component_id,
-               c.component_name,
-               o.creation_date,
-               to_char(o.creation_date, 'YYYY-MM-DD HH24:MI:SS') as creation_date_pretty,
-               st.pretty_name as status,
-               b.resolution,
-               b.user_agent,
-               b.found_in_version,
-               b.fix_for_version,
-               b.fixed_in_version,
-               to_char(sysdate, 'YYYY-MM-DD HH24:MI:SS') as now_pretty
-        from   bt_bugs b,
-               acs_objects o,
-               bt_components c,
-               cc_users submitter,
-               workflow_cases cas,
-               workflow_case_fsm cfsm,
-               workflow_fsm_states st
-        where  b.bug_id = :bug_id
-        and    b.project_id = :package_id
-        and    o.object_id = b.bug_id
-        and    c.component_id = b.component_id
-        and    submitter.user_id = o.creation_user
-        and    cas.object_id = b.bug_id
-        and    cfsm.case_id = cas.case_id
-        and    cfsm.current_state = st.state_id
-
-      </querytext>
-</fullquery>
-
- 
-<fullquery name="bug_tracker::get_project_info_internal.project_info">      
-      <querytext>
-      
-        select pck.instance_name as project_name,
-               prj.description as project_description,
-               prj.folder_id as project_folder_id,
-               prj.root_keyword_id as project_root_keyword_id,
-               ver.version_id as current_version_id,
-               nvl(ver.version_name, 'None') as current_version_name
-        from   apm_packages pck, 
-               bt_projects prj,
-               (select * from bt_versions where active_version_p = 't') ver 
-        where  pck.package_id = :package_id 
-        and    prj.project_id = pck.package_id
-        and    prj.project_id = ver.project_id (+)
-    
-      </querytext>
-</fullquery>
- 
-<fullquery name="bug_tracker::bugs_exist_p_not_cached.select_bugs_exist_p">      
-      <querytext>
-        select 1 
-        from  bt_bugs 
-        where project_id = :package_id 
-        and   rownum = 1
-      </querytext>
-</fullquery>
-
-<fullquery name="bug_tracker::get_user_prefs_internal.user_info">      
-      <querytext>
-      
-        select u.first_names as user_first_names, 
-               u.last_name as user_last_name,
-               u.email as user_email,
-               ver.version_id as user_version_id,
-               nvl(ver.version_name, 'None') as user_version_name
-        from   cc_users u,
-               bt_user_prefs up,
-               bt_versions ver
-        where  u.user_id = :user_id
-        and    up.user_id = u.user_id
-        and    up.project_id = :package_id
-        and    up.user_version = ver.version_id (+)
-    
-      </querytext>
-</fullquery>
- 
-<fullquery name="bug_tracker::delete_all_project_keywords.keywords_delete">      
-      <querytext>
+   <fullquery name="bug_tracker::delete_all_project_keywords.keywords_delete">      
+     <querytext>
         begin
              bt_project.keywords_delete(:package_id, 'f');
         end;
-      </querytext>
-</fullquery>
+     </querytext>
+   </fullquery>
 
-<fullquery name="bug_tracker::parse_filters.assignee_name">      
-      <querytext>
+   <fullquery name="bug_tracker::parse_filters.assignee_name">      
+     <querytext>
        select acs_object.name(party_id) from parties where party_id = :filter_assignee 
-      </querytext>
-</fullquery>
+     </querytext>
+   </fullquery>
 
-  <partialquery name="bug_tracker::parse_filters.n_days_filter">      
-      <querytext>
-        b.creation_date + :filter_n_days > sysdate
-      </querytext>
-  </partialquery>
-
-  <partialquery name="bug_tracker::parse_filters.keyword_filter">
-      <querytext>
+   <partialquery name="bug_tracker::parse_filters.keyword_filter">
+     <querytext>
         content_keyword.is_assigned(b.bug_id, $keyword_id, 'none') = 't'
-      </querytext>
-  </partialquery>
+     </querytext>
+   </partialquery>
 
-  <fullquery name="bug_tracker::project_delete.delete_project">
-    <querytext>
+   <fullquery name="bug_tracker::project_delete.delete_project">
+     <querytext>
         begin
              bt_project.del(:project_id);
         end;
-    </querytext>
-  </fullquery>
+     </querytext>
+   </fullquery>
 
-  <fullquery name="bug_tracker::project_new.create_project">
-    <querytext>
+   <fullquery name="bug_tracker::project_new.create_project">
+     <querytext>
         begin
              bt_project.new(:project_id);
         end;
-    </querytext>
-  </fullquery>
+     </querytext>
+   </fullquery>
 
-  <fullquery name="bug_tracker::category_get_filter_data_not_cached.select">
-    <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
-               [bug_tracker::user_bugs_only_where_clause]
-        group  by kw.heading, km.keyword_id
-        order  by kw.heading
-    </querytext>
-  </fullquery>
-
-  <fullquery name="bug_tracker::version_get_filter_data_not_cached.select">
-    <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
-               [bug_tracker::user_bugs_only_where_clause]
-        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::assignee_get_filter_data_not_cached.select">
-    <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  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
-             $user_bugs_onlyx_where_clause
-      group  by p.first_names, p.last_name, crum.user_id
-    </querytext>
-  </fullquery>
-
    <fullquery name="bug_tracker::assignee_get_options.assignees">      
      <querytext>
        select acs_object.name(p.party_id) || ' (' || p.email || ')'  as label,
@@ -195,17 +48,6 @@
 				where workflow_case_role_party_map.case_id = workflow_cases.case_id
 				and workflow_cases.workflow_id = :workflow_id)
      </querytext>
-    </fullquery>
-
-
-   <fullquery name="bug_tracker::project_new.instance_info">      
-     <querytext>
-	select p.instance_name, o.creation_user, o.creation_ip 
-	from apm_packages p, acs_objects o 
-	where p.package_id = o.object_id
-	and  p.package_id = :project_id      
-     </querytext>
    </fullquery>
 
-
 </queryset>