Index: openacs-4/packages/bug-tracker/tcl/bug-tracker-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/tcl/bug-tracker-procs.tcl,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/bug-tracker/tcl/bug-tracker-procs.tcl	20 Sep 2002 15:08:51 -0000	1.13
+++ openacs-4/packages/bug-tracker/tcl/bug-tracker-procs.tcl	27 Sep 2002 14:25:20 -0000	1.14
@@ -200,8 +200,23 @@
     
         return [util_memoize "bug_tracker::get_user_prefs_internal $package_id $user_id"]
     }
+
+    ad_proc get_user_prefs_flush {
+        -package_id
+        -user_id
+    } {
+        if { ![info exists package_id] } {
+            set package_id [ad_conn package_id]
+        }
     
+        if { ![info exists user_id] } {
+            set user_id [ad_conn user_id]
+        }
     
+        util_memoize_flush "bug_tracker::get_user_prefs_internal $package_id $user_id"
+    }
+    
+    
     #####
     #
     # Bug Types
Index: openacs-4/packages/bug-tracker/www/patch-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/www/patch-add.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/bug-tracker/www/patch-add.tcl	20 Sep 2002 15:22:43 -0000	1.2
+++ openacs-4/packages/bug-tracker/www/patch-add.tcl	27 Sep 2002 14:25:23 -0000	1.3
@@ -106,7 +106,7 @@
     element set_properties patch patch_id -value [db_nextval "acs_object_id_seq"]
 
     element set_properties patch version_id \
-            -value [db_string user_version { select user_version from bt_user_prefs where user_id = :user_id and project_id = :package_id }]
+            -value [bug_tracker::conn user_version_id]
 
     if { [info exists component_id] } {
         element set_properties patch component_id -value $component_id
Index: openacs-4/packages/bug-tracker/www/prefs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/www/prefs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/bug-tracker/www/prefs.tcl	28 Aug 2002 15:44:18 -0000	1.3
+++ openacs-4/packages/bug-tracker/www/prefs.tcl	27 Sep 2002 14:25:23 -0000	1.4
@@ -71,6 +71,8 @@
         and    project_id = :package_id
     }
 
+    bug_tracker::get_user_prefs_flush -package_id $package_id -user_id $user_id
+
     ad_returnredirect $return_url
     ad_script_abort
 }