Index: openacs-4/contrib/packages/simulation/www/simplay/case-admin.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/simplay/Attic/case-admin.tcl,v
diff -u -r1.16.2.1 -r1.16.2.2
--- openacs-4/contrib/packages/simulation/www/simplay/case-admin.tcl	19 Mar 2004 10:52:44 -0000	1.16.2.1
+++ openacs-4/contrib/packages/simulation/www/simplay/case-admin.tcl	22 Mar 2004 11:46:08 -0000	1.16.2.2
@@ -146,8 +146,7 @@
     lappend cast_roles $role_id
 }
 
-set role_options [workflow::role::get_options -id_values
-  -workflow_id $case(workflow_id)]
+set role_options [workflow::role::get_options -id_values -workflow_id $case(workflow_id)]
 set uncast_role_options [list]
 foreach role_option $role_options {
     if { [lsearch -exact $cast_roles [lindex $role_option 1]] == -1 } {
Index: openacs-4/packages/simulation/www/simplay/case-admin.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/simplay/case-admin.tcl,v
diff -u -r1.16.2.1 -r1.16.2.2
--- openacs-4/packages/simulation/www/simplay/case-admin.tcl	19 Mar 2004 10:52:44 -0000	1.16.2.1
+++ openacs-4/packages/simulation/www/simplay/case-admin.tcl	22 Mar 2004 11:46:08 -0000	1.16.2.2
@@ -146,8 +146,7 @@
     lappend cast_roles $role_id
 }
 
-set role_options [workflow::role::get_options -id_values
-  -workflow_id $case(workflow_id)]
+set role_options [workflow::role::get_options -id_values -workflow_id $case(workflow_id)]
 set uncast_role_options [list]
 foreach role_option $role_options {
     if { [lsearch -exact $cast_roles [lindex $role_option 1]] == -1 } {