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.4.2.4 -r1.4.2.5
--- openacs-4/packages/bug-tracker/tcl/bug-procs-oracle.xql	14 Jan 2005 03:08:51 -0000	1.4.2.4
+++ openacs-4/packages/bug-tracker/tcl/bug-procs-oracle.xql	20 Jan 2005 02:11:22 -0000	1.4.2.5
@@ -169,6 +169,7 @@
 select q.*
 from (
   select b.bug_id,
+         b.project_id,
          b.bug_number,
          b.summary,
          lower(b.summary) as lower_summary,
@@ -237,6 +238,7 @@
        assign_info.*
 from (
   select b.bug_id,
+         b.project_id,
          b.bug_number,
          b.summary,
          lower(b.summary) as lower_summary,
Index: openacs-4/packages/bug-tracker/tcl/bug-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/tcl/bug-procs-postgresql.xql,v
diff -u -r1.5.2.3 -r1.5.2.4
--- openacs-4/packages/bug-tracker/tcl/bug-procs-postgresql.xql	14 Jan 2005 01:46:02 -0000	1.5.2.3
+++ openacs-4/packages/bug-tracker/tcl/bug-procs-postgresql.xql	20 Jan 2005 02:11:22 -0000	1.5.2.4
@@ -158,6 +158,7 @@
        assign_info.*
 from (
   select b.bug_id,
+         b.project_id,
          b.bug_number,
          b.summary,
          lower(b.summary) as lower_summary,
@@ -228,6 +229,7 @@
        assign_info.*
 from (
   select b.bug_id,
+         b.project_id,
          b.bug_number,
          b.summary,
          lower(b.summary) as lower_summary,
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 -r1.14.2.3 -r1.14.2.4
--- openacs-4/packages/bug-tracker/tcl/bug-procs.tcl	14 Jan 2005 01:46:02 -0000	1.14.2.3
+++ openacs-4/packages/bug-tracker/tcl/bug-procs.tcl	20 Jan 2005 02:11:22 -0000	1.14.2.4
@@ -19,6 +19,15 @@
 namespace eval bug_tracker::bug::get_project_maintainer {}
 namespace eval bug_tracker::bug::notification_info {}
 
+ad_proc -public bug_tracker::bug::cache_flush {
+    -bug_id:required
+} {
+    Flush all list builder instances for the given bug-tracker
+    package instance.
+} {
+    cache flush "bugs,project_id=[db_string get_project_id {}],*"
+}
+
 ad_proc -public bug_tracker::bug::workflow_short_name {} {
     Get the short name of the workflow for bugs
 } {
@@ -111,6 +120,8 @@
                     -extra_vars $extra_vars \
                     -package_name "bt_bug" \
                     "bt_bug"]
+
+    cache_flush -bug_id $bug_id
     
     return $bug_id
 }
@@ -202,6 +213,8 @@
     }
     set revision_id [db_exec_plsql update_bug {}]
 
+    cache_flush -bug_id $bug_id
+
     return $bug_id
 }
 
@@ -280,6 +293,11 @@
 
     @author Mark Aufflick
 } {
+
+    # Probably not necessary if developers follow the instructions in the
+    # header comment ...
+    cache_flush -bug_id $bug_id
+
     set case_id [db_string get_case_id {}]
     db_exec_plsql delete_bug_case {}
     set notifications [db_list get_notifications {}]
@@ -736,6 +754,7 @@
     set state_default_value [lindex [lindex $state_values 0] 1]
 
     set filters {
+        project_id {}
         f_state {
             label "State"
             values $state_values
@@ -839,7 +858,7 @@
         -orderby $orderbys \
         -page_size 25 \
         -page_groupsize 1 \
-        -page_flush_p 1 \
+        -page_flush_p 0 \
         -page_query {[bug_tracker::bug::get_query -query_name bugs_pagination]} \
         -formats {
             table {
Index: openacs-4/packages/bug-tracker/tcl/bug-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/tcl/bug-procs.xql,v
diff -u -r1.4 -r1.4.4.1
--- openacs-4/packages/bug-tracker/tcl/bug-procs.xql	3 Oct 2003 16:54:37 -0000	1.4
+++ openacs-4/packages/bug-tracker/tcl/bug-procs.xql	20 Jan 2005 02:11:22 -0000	1.4.4.1
@@ -1,6 +1,12 @@
 <?xml version="1.0"?>
 <queryset>
 
+<fullquery name="bug_tracker::bug::cache_flush.get_project_id">
+    <querytext>
+      select project_id from bt_bugs where bug_id = :bug_id
+    </querytext>
+</fullquery>
+
 <fullquery name="bug_tracker::bug::delete.get_case_id">
     <querytext>
         select case_id
Index: openacs-4/packages/bug-tracker/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/www/index.tcl,v
diff -u -r1.18 -r1.18.4.1
--- openacs-4/packages/bug-tracker/www/index.tcl	13 Oct 2003 19:36:16 -0000	1.18
+++ openacs-4/packages/bug-tracker/www/index.tcl	20 Jan 2005 02:11:22 -0000	1.18.4.1
@@ -21,8 +21,8 @@
     return
 }
 
+set project_id [ad_conn package_id]
 
-
 #####
 #
 # Get bug list