Index: openacs-4/contrib/packages/simulation/www/siminst/simulation-casting.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/siminst/Attic/simulation-casting.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/contrib/packages/simulation/www/siminst/simulation-casting.tcl	15 Dec 2003 13:40:22 -0000	1.7
+++ openacs-4/contrib/packages/simulation/www/siminst/simulation-casting.tcl	16 Dec 2003 09:47:46 -0000	1.8
@@ -1,7 +1,12 @@
 ad_page_contract {
-    Edit a simulation in casting mode
+    Script that starts the casting of a simulation template
+    by setting sim_type to casting_sim. Will check that the template
+    is ready for casting and issue a message to the user if it's not.
+
+    @author Peter Marklund
 } {
     workflow_id:integer
+    {return_url "."}
 }
 
 # Redirect to next casting page if the template is ready for casting
@@ -10,7 +15,7 @@
     set simulation(sim_type) casting_sim
     simulation::template::edit -workflow_id $workflow_id -array simulation
 
-    ad_returnredirect [export_vars -base "simulation-casting-2" { workflow_id }]
+    ad_returnredirect $return_url
 }
 
 simulation::template::get -workflow_id $workflow_id -array simulation
Index: openacs-4/packages/simulation/www/siminst/simulation-casting.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/siminst/simulation-casting.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/simulation/www/siminst/simulation-casting.tcl	15 Dec 2003 13:40:22 -0000	1.7
+++ openacs-4/packages/simulation/www/siminst/simulation-casting.tcl	16 Dec 2003 09:47:46 -0000	1.8
@@ -1,7 +1,12 @@
 ad_page_contract {
-    Edit a simulation in casting mode
+    Script that starts the casting of a simulation template
+    by setting sim_type to casting_sim. Will check that the template
+    is ready for casting and issue a message to the user if it's not.
+
+    @author Peter Marklund
 } {
     workflow_id:integer
+    {return_url "."}
 }
 
 # Redirect to next casting page if the template is ready for casting
@@ -10,7 +15,7 @@
     set simulation(sim_type) casting_sim
     simulation::template::edit -workflow_id $workflow_id -array simulation
 
-    ad_returnredirect [export_vars -base "simulation-casting-2" { workflow_id }]
+    ad_returnredirect $return_url
 }
 
 simulation::template::get -workflow_id $workflow_id -array simulation