Index: openacs-4/contrib/packages/simulation/tcl/template-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/tcl/Attic/template-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/contrib/packages/simulation/tcl/template-procs.tcl	18 Nov 2003 15:59:12 -0000	1.3
+++ openacs-4/contrib/packages/simulation/tcl/template-procs.tcl	28 Nov 2003 11:12:39 -0000	1.4
@@ -122,6 +122,20 @@
     db_1row select_template {} -column_array row
 }
 
+ad_proc -public simulation::template::get_workflow_id_from_action {
+    {-action_id:required}
+} {
+    Given an action_id, return the workflow_id
+
+    @param action_id ID of action in workflow
+} {
+    return [db_string select_workflow_id {
+        select wa.workflow_id
+          from workflow_actions wa
+         where wa.action_id = :action_id
+    }]
+}
+
 ad_proc -public simulation::template::delete {
     {-workflow_id:required}
 } {