Index: openacs-4/packages/simulation/www/simbuild/task-enabled-in-state-update.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/simbuild/task-enabled-in-state-update.tcl,v
diff -u -r1.2 -r1.2.2.1
--- openacs-4/packages/simulation/www/simbuild/task-enabled-in-state-update.tcl	27 Jan 2004 14:53:42 -0000	1.2
+++ openacs-4/packages/simulation/www/simbuild/task-enabled-in-state-update.tcl	30 Nov 2004 21:48:11 -0000	1.2.2.1
@@ -8,18 +8,23 @@
     {return_url {}}
 }
 
+set workflow_id [workflow::action::get_element \
+		     -action_id $action_id \
+		     -element workflow_id]
+
+permission::require_write_permission -object_id $workflow_id
+
 workflow::action::fsm::set_enabled_in_state \
     -action_id $action_id \
     -state_id $state_id \
     -enabled=[template::util::is_true $enabled_p] \
     -assigned=[template::util::is_true $assigned_p]
 
-if { [empty_string_p $return_url] } {
-    set workflow_id [workflow::action::get_element \
-                         -action_id $action_id \
-                         -element workflow_id]
-    
+if { [empty_string_p $return_url] } {    
     set return_url [export_vars -base template-edit { workflow_id }]
 }
 
-ad_returnredirect $return_url
+# Let's mark this template edited
+set sim_type "dev_template"
+
+ad_returnredirect [export_vars -base "template-sim-type-update" { workflow_id sim_type return_url }]
\ No newline at end of file