Index: openacs-4/contrib/packages/project-manager/tcl/task-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/tcl/Attic/task-procs.tcl,v
diff -u -r1.4.2.35 -r1.4.2.36
--- openacs-4/contrib/packages/project-manager/tcl/task-procs.tcl	15 Dec 2004 21:34:36 -0000	1.4.2.35
+++ openacs-4/contrib/packages/project-manager/tcl/task-procs.tcl	20 Dec 2004 19:47:39 -0000	1.4.2.36
@@ -978,7 +978,11 @@
     
     @error 
 } {
+    
     db_dml remove_assignment { }
+    
+    # Flush the cache that remembers which roles to offer the current user in the 'assign role to myself' listbox
+    util_memoize_flush [list pm::role::task_select_list_filter_not_cached -task_item_id $task_item_id -party_id [ad_conn user_id]]
 }
 
 
@@ -1000,6 +1004,11 @@
     @error 
 } {
     db_dml remove_assignment { }
+    
+    # Flush the cache that remembers which roles to offer the current user in the 'assign role to myself' listbox
+    if {[ad_conn user_id] == $party_id} {
+        util_memoize_flush [list pm::role::task_select_list_filter_not_cached -task_item_id $task_item_id -party_id $party_id]
+    }
 }
 
 
@@ -1019,7 +1028,7 @@
 
     @param role_id the role under which the person is assigned
 
-    @return 
+    @return
     
     @error 
 } {
@@ -1049,6 +1058,11 @@
             :party_id)
          }
     }
+
+    # Flush the cache that remembers which roles to offer the current user in the 'assign role to myself' listbox
+    if {[ad_conn user_id] == $party_id} {
+        util_memoize_flush [list pm::role::task_select_list_filter_not_cached -task_item_id $task_item_id -party_id $party_id]
+    }
 }