Index: openacs-4/packages/simulation/www/simplay/task-detail.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/simplay/task-detail.tcl,v
diff -u -N -r1.24 -r1.25
--- openacs-4/packages/simulation/www/simplay/task-detail.tcl	20 Apr 2004 21:12:26 -0000	1.24
+++ openacs-4/packages/simulation/www/simplay/task-detail.tcl	29 Jun 2004 10:17:34 -0000	1.25
@@ -94,9 +94,9 @@
                 set body "
 
 -----Original Message-----
-From: [workflow::role::get_element -role_id $from_role_id -element pretty_name]
+From: [workflow::role::get_element -role_id $from_role_id -element character_title]
 Sent: [lc_time_fmt $creation_date "%x %X"]
-To: [workflow::role::get_element -role_id $to_role_id -element pretty_name]
+To: [workflow::role::get_element -role_id $to_role_id -element character_title]
 Subject: $subject
 
 [ad_html_text_convert -from $mime_type -to "text/plain" $triggering_body]"
@@ -224,13 +224,13 @@
 
             set recipient_list [list]
             foreach recipient_id $action(recipients) {
-                lappend recipient_list [simulation::role::get_element -role_id $recipient_id -element pretty_name]
+                lappend recipient_list [simulation::role::get_element -role_id $recipient_id -element character_title]
             }
             set recipient_names [join $recipient_list ", "]
 
             if { ![empty_string_p $action(assigned_role_id)] } {
                 simulation::role::get -role_id $action(assigned_role_id) -array sender_role
-                set sender_name $sender_role(pretty_name)
+                set sender_name $sender_role(character_title)
             }        
         } -on_submit {