Index: openacs-4/contrib/packages/simulation/www/simbuild/state-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/simbuild/Attic/state-edit.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/packages/simulation/www/simbuild/state-edit.tcl	9 Dec 2003 15:58:13 -0000	1.1
+++ openacs-4/contrib/packages/simulation/www/simbuild/state-edit.tcl	16 Dec 2003 18:34:00 -0000	1.2
@@ -75,27 +75,25 @@
     permission::require_write_permission -object_id $workflow_id
 } -new_data {
     permission::require_write_permission -object_id $workflow_id
-    # create the state
 
-    set state_id [workflow::state::fsm::new \
-                      -workflow_id $workflow_id \
-                      -pretty_name $pretty_name]
-
+    set operation "insert"
 } -edit_data {
     # We use state_array(workflow_id) here, which is gotten from the DB, and not
     # workflow_id, which is gotten from the form, because the workflow_id from the form 
     # could be spoofed
-    permission::require_write_permission -object_id $state_array(workflow_id)
-
+    set workflow_id $state_array(workflow_id)
+    permission::require_write_permission -object_id $workflow_id
+    set operation "update"
+} -after_submit {
     set row(pretty_name) $pretty_name
     set row(short_name) {}
 
-    workflow::state::fsm::edit \
-        -state_id $state_id \
-        -workflow_id $state_array(workflow_id) \
-        -array row
+    set state_id [workflow::state::fsm::edit \
+                      -operation $operation \
+                      -state_id $state_id \
+                      -workflow_id $workflow_id \
+                      -array row]
 
-} -after_submit {
     ad_returnredirect [export_vars -base "template-edit" { workflow_id }]
     ad_script_abort
 }