Index: openacs-4/packages/workflow/tcl/role-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/workflow/tcl/role-procs.tcl,v
diff -u -N -r1.6 -r1.7
--- openacs-4/packages/workflow/tcl/role-procs.tcl	12 Feb 2003 14:23:15 -0000	1.6
+++ openacs-4/packages/workflow/tcl/role-procs.tcl	5 Mar 2003 17:18:10 -0000	1.7
@@ -55,6 +55,7 @@
 
         db_dml do_insert {}
     }
+
     return $role_id
 }
 
@@ -272,7 +273,7 @@
     array unset row callbacks_array
     array unset row callback_ids
     array unset row callback_impl_names
-    
+
     # Get rid of empty strings
     foreach name [array names row] {
         if { [empty_string_p $row($name)] } {
@@ -337,6 +338,9 @@
         db_dml insert_callback {}
     }
 
+    set workflow_id [workflow::role::get_workflow_id -role_id $role_id]
+    workflow::role::flush_cache -workflow_id $workflow_id
+
     return $acs_sc_impl_id
 }
 
@@ -349,7 +353,7 @@
     @author Peter Marklund
 } {
     # TODO: Flush request cache
-    # ...
+    # no request cache to flush yet
 
     # Flush the thread global cache
     util_memoize_flush [list workflow::role::get_all_info_not_cached -workflow_id $workflow_id]    
@@ -399,7 +403,6 @@
                 [list workflow::role::get_workflow_id_not_cached -role_id $role_id] \
                 $workflow_id
     }
-    unset row
     
     # Get the callbacks of all roles of the workflow
     foreach role_id $role_ids {