Index: openacs-4/packages/workflow/tcl/action-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/workflow/tcl/action-procs.tcl,v
diff -u -N -r1.25 -r1.26
--- openacs-4/packages/workflow/tcl/action-procs.tcl	9 Jan 2004 15:47:53 -0000	1.25
+++ openacs-4/packages/workflow/tcl/action-procs.tcl	12 Jan 2004 10:58:21 -0000	1.26
@@ -1132,9 +1132,66 @@
     return $row($element)
 }
 
+ad_proc -public workflow::action::fsm::set_enabled_in_state {
+    -action_id:required
+    -state_id:required
+    -enabled:boolean
+    -assigned:boolean
+    {-workflow_id {}}
+} {
+    Edit the enabled state of an action
 
+    @param workflow_id Optionally provide the workflow_id. If not, this will be gotten from a query.
+
+    @author Lars Pind (lars@collaboraid.biz)
+} {
+    if { [empty_string_p $workflow_id] } {
+        set workflow_id [workflow::action::get_element \
+                             -action_id $action_id \
+                             -element workflow_id]
+    }
+
+    set currently_assigned_p [db_string enabled_p { 
+        select assigned_p
+        from   workflow_fsm_action_en_in_st
+        where  action_id = :action_id
+        and    state_id = :state_id
+    } -default {}]
+
+    set currently_enabled_p [expr ![empty_string_p $currently_assigned_p]]
+    set currently_assigned_p [template::util::is_true $currently_assigned_p]
+
+    set db_assigned_p [db_boolean $assigned_p]
     
+    if { $currently_enabled_p != $enabled_p} {
+        if { $enabled_p } {
+            db_dml enabled {
+                insert into workflow_fsm_action_en_in_st (action_id, state_id, assigned_p)
+                values (:action_id, :state_id, :db_assigned_p)
+            }
+        } else {
+            db_dml disable {
+                delete 
+                from   workflow_fsm_action_en_in_st 
+                where  action_id = :action_id
+                and    state_id = :state_id
+            }
+        }
+    } elseif { $currently_assigned_p != $assigned_p } {
+        db_dml update_assigned_p {
+            update workflow_fsm_action_en_in_st 
+            set    assigned_p = :db_assigned_p
+            where  action_id = :action_id
+            and    state_id = :state_id
+        }
+    }
+    
+    workflow::definition_changed_handler -workflow_id $workflow_id
+}
 
+
+    
+
 #####
 # Private procs
 #####