Index: openacs-4/contrib/packages/simulation/www/siminst/simulation-casting-3.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/siminst/Attic/simulation-casting-3.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/contrib/packages/simulation/www/siminst/simulation-casting-3.tcl	17 Dec 2003 16:51:24 -0000	1.5
+++ openacs-4/contrib/packages/simulation/www/siminst/simulation-casting-3.tcl	18 Dec 2003 08:31:03 -0000	1.6
@@ -14,7 +14,7 @@
 # Loop over all workflow roles and append the actor and "in groups of" widgets to the form
 set form [list]
 
-set eligible_groups [simulation::groups_eligible_for_casting]
+set eligible_groups [simulation::casting_groups -enrolled_only -workflow_id $workflow_id]
 
 foreach role_id [workflow::get_roles -workflow_id $workflow_id] {
     set role_pretty_name [workflow::role::get_element -role_id $role_id -element pretty_name]
@@ -44,7 +44,7 @@
         # Validation
         # Make sure the number of users per case does not exceed the number of users
         # in each group
-        array set groups [simulation::groups_eligible_for_casting_with_counts]
+        array set groups [simulation::casting_groups_with_counts -enrolled_only -workflow_id $workflow_id]
         set error_p 0
         foreach role_id [workflow::get_roles -workflow_id $workflow_id] {
             set group_size [set group_$role_id]