Index: openacs-4/packages/bug-tracker/www/admin/versions.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/www/admin/versions.xql,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/bug-tracker/www/admin/versions.xql	5 Mar 2003 17:41:17 -0000	1.1
+++ openacs-4/packages/bug-tracker/www/admin/versions.xql	14 Jun 2018 13:21:19 -0000	1.2
@@ -1,4 +1,96 @@
 <?xml version="1.0"?>
 <queryset>
 
+  <fullquery name="current_version">
+    <querytext>
+    select v.version_id,
+           v.version_name,
+           v.description,
+           v.anticipated_freeze_date,
+           v.actual_freeze_date,
+           v.anticipated_release_date,
+           v.maintainer,
+           u.first_names as maintainer_first_names,
+           u.last_name as maintainer_last_name,
+           u.email as maintainer_email,
+           v.supported_platforms,
+           v.active_version_p,
+           v.assignable_p,
+           case when v.assignable_p = 't' then 'Yes' else 'No' end as assignable_p_pretty,
+           (select count(*) 
+            from   bt_bugs b 
+            where  b.found_in_version = v.version_id 
+               or  b.fix_for_version = v.version_id
+               or  b.fixed_in_version = v.version_id) as num_bugs
+    from   bt_versions v left outer join 
+           cc_users u on (u.user_id = v.maintainer)
+    where  v.project_id = :package_id
+    and    v.active_version_p = 't'
+    and    v.actual_release_date is null
+    </querytext>
+  </fullquery>
+
+  <fullquery name="future_versions">
+    <querytext>
+    
+    select v.version_id,
+           v.version_name,
+           v.description,
+           v.anticipated_freeze_date,
+           v.actual_freeze_date,
+           v.anticipated_release_date,
+           v.maintainer,
+           u.first_names as maintainer_first_names,
+           u.last_name as maintainer_last_name,
+           u.email as maintainer_email,
+           v.supported_platforms,
+           v.active_version_p,
+           v.assignable_p,
+           case when v.assignable_p = 't' then 'Yes' else 'No' end as assignable_p_pretty,
+           (select count(*) 
+            from   bt_bugs b 
+            where  b.found_in_version = v.version_id 
+               or  b.fix_for_version = v.version_id
+               or  b.fixed_in_version = v.version_id) as num_bugs
+    from   bt_versions v left outer join 
+           cc_users u on (u.user_id = v.maintainer)
+    where  v.project_id = :package_id
+    and    v.actual_release_date is null
+    and    v.active_version_p = 'f'
+    order by v.anticipated_release_date, version_name
+
+    </querytext>
+  </fullquery>
+
+  <fullquery name="past_versions">
+    <querytext>
+
+    select v.version_id,
+           v.version_name,
+           v.description,
+           v.anticipated_freeze_date,
+           v.actual_freeze_date,
+           v.anticipated_release_date,
+           v.actual_release_date,
+           v.maintainer,
+           u.first_names as maintainer_first_names,
+           u.last_name as maintainer_last_name,
+           u.email as maintainer_email,
+           v.supported_platforms,
+           v.active_version_p,
+           v.assignable_p,
+           case when v.assignable_p = 't' then 'Yes' else 'No' end as assignable_p_pretty,
+           (select count(*) 
+            from   bt_bugs b 
+            where  b.found_in_version = v.version_id 
+               or  b.fix_for_version = v.version_id
+               or  b.fixed_in_version = v.version_id) as num_bugs
+    from   bt_versions v left outer join 
+           cc_users u on (u.user_id = v.maintainer)
+    where  v.project_id = :package_id
+    and    v.actual_release_date is not null
+    order by v.actual_release_date, version_name
+    </querytext>
+  </fullquery>
+  
 </queryset>