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 } {