Index: openacs-4/packages/bug-tracker/tcl/bug-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/tcl/bug-procs.tcl,v
diff -u -N -r1.14.2.2 -r1.14.2.3
--- openacs-4/packages/bug-tracker/tcl/bug-procs.tcl	14 Jan 2005 00:45:08 -0000	1.14.2.2
+++ openacs-4/packages/bug-tracker/tcl/bug-procs.tcl	14 Jan 2005 01:46:02 -0000	1.14.2.3
@@ -840,7 +840,7 @@
         -page_size 25 \
         -page_groupsize 1 \
         -page_flush_p 1 \
-        -page_query {[bug_tracker::bug::get_query]} \
+        -page_query {[bug_tracker::bug::get_query -query_name bugs_pagination]} \
         -formats {
             table {
                 label "Table"
@@ -868,10 +868,13 @@
         -selected_format $format
 }
 
+ad_proc bug_tracker::bug::get_query {
+    {-query_name bugs}
+} {
+    @param name Either "bugs" or "bugs_pagination"
+    @return The query
+} {
 
-
-ad_proc bug_tracker::bug::get_query {} {
-
     upvar #[template::adp_level] orderby orderby 
 
     # Needed to handle ordering by categories
@@ -896,7 +899,7 @@
         set more_columns ""
     }
 
-    return [db_map bugs]
+    return [db_map $query_name]
 }