Index: openacs-4/packages/workflow/tcl/workflow-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/workflow/tcl/workflow-procs.tcl,v
diff -u -N -r1.11 -r1.12
--- openacs-4/packages/workflow/tcl/workflow-procs.tcl	1 Nov 2003 08:45:39 -0000	1.11
+++ openacs-4/packages/workflow/tcl/workflow-procs.tcl	18 Nov 2003 17:57:57 -0000	1.12
@@ -209,10 +209,22 @@
     return $action_data(action_ids)
 }
 
+ad_proc -public workflow::definition_changed_handler {
+    {-workflow_id:required}
+} {
+    Should be called when the workflow definition has changed while there are active cases.
+    Will update the record of enabled actions in each of the case, so they reflect the new workflow.
+} {
+    set case_ids [db_list select_cases { select case_id from workflow_cases where workflow_id = :workflow_id }]
 
+    foreach case_id $case_ids {
+        workflow::case::state_changed_handler \
+            -case_id $case_id
+    }
+    
+}
 
 
-
 #####
 # Private procs
 #####