Index: openacs-4/packages/simulation/www/siminst/simulation-casting-3.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/siminst/simulation-casting-3.tcl,v
diff -u -r1.24 -r1.24.6.1
--- openacs-4/packages/simulation/www/siminst/simulation-casting-3.tcl	27 Jan 2004 12:48:39 -0000	1.24
+++ openacs-4/packages/simulation/www/siminst/simulation-casting-3.tcl	2 Nov 2006 10:44:13 -0000	1.24.6.1
@@ -39,12 +39,14 @@
 }
 
 foreach role_id [workflow::get_roles -workflow_id $workflow_id] {
-    set role_${role_id}_pretty_name [workflow::role::get_element -role_id $role_id -element pretty_name]
+    simulation::role::get -role_id $role_id -array role
+    set role_${role_id}_pretty_name $role(pretty_name)
+    set character_${role_id}_name [simulation::character::get_element -character_id $role(character_id) -element title]
 
     if { $num_groups > 0 } {
         lappend form [list \
                           users_per_case_${role_id}:integer \
-                          [list label "Number of users for <b>\$role_${role_id}_pretty_name</b>"] \
+                          [list label "Number of users for <b>\$role_${role_id}_pretty_name</b> (\$character_${role_id}_name)"] \
                           {value 1} \
                           {html {size 2}} \
                           [list section "\$role_${role_id}_pretty_name"]