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