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.33 -r1.34
--- openacs-4/contrib/packages/simulation/tcl/template-procs.tcl	7 Jan 2004 12:22:40 -0000	1.33
+++ openacs-4/contrib/packages/simulation/tcl/template-procs.tcl	7 Jan 2004 14:46:04 -0000	1.34
@@ -758,6 +758,8 @@
       <li>settings_complete
       <li>enrollment_complete
       <li>participants_complete
+      <li>casting
+      <li>has_cases
     </ul>
 } {
     simulation::template::get -workflow_id $workflow_id -array sim_template
@@ -808,6 +810,19 @@
                 }
             }
         }
+        casting_sim {
+            set state "casting"
+            
+            set n_cases [db_string select_n_cases {
+                select count(*)
+                from   workflow_cases
+                where  workflow_id = :workflow_id
+            }]
+
+            if { $n_cases > 0 } {
+                set state "has_cases"
+            }
+        }
     }
     
     return $state