Index: openacs-4/packages/simulation/tcl/template-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/tcl/template-procs.tcl,v
diff -u -r1.37 -r1.38
--- openacs-4/packages/simulation/tcl/template-procs.tcl	8 Jan 2004 15:54:01 -0000	1.37
+++ openacs-4/packages/simulation/tcl/template-procs.tcl	8 Jan 2004 16:02:34 -0000	1.38
@@ -227,6 +227,21 @@
     array set row [array get local_row]
 }
 
+ad_proc -public simulation::template::get_element {
+    {-workflow_id:required}
+    {-element:required}
+} {
+    Return element from a simulation template.
+
+    @param workflow_id ID of simulation template.
+    @param element The name of the element you want.
+
+} {
+
+    get -workflow_id $workflow_id -array row
+    return $row($element)
+}
+
 ad_proc -public simulation::template::delete {
     {-workflow_id:required}
 } {