Index: openacs-4/contrib/packages/simulation/www/simplay/message.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/simplay/Attic/message.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/contrib/packages/simulation/www/simplay/message.tcl	5 Jan 2004 16:00:34 -0000	1.7
+++ openacs-4/contrib/packages/simulation/www/simplay/message.tcl	5 Jan 2004 16:10:37 -0000	1.8
@@ -21,6 +21,11 @@
     lappend from_role_options [list [workflow::role::get_element -role_id $role_id -element pretty_name] $role_id]
 }
 
+set all_role_options [list]
+foreach role_id [workflow::role::get_ids -workflow_id $workflow_id] {
+    lappend all_role_options [list [workflow::role::get_element -role_id $role_id -element pretty_name] $role_id]
+}
+
 set to_role_options [list]
 foreach role_id [workflow::role::get_ids -workflow_id $workflow_id] {
     lappend to_role_options [list [workflow::role::get_element -role_id $role_id -element pretty_name] $role_id]
@@ -63,7 +68,7 @@
         {item_id:key}
         {sender_role_id:text(select)
             {label "From"}
-            {options $from_role_options}
+            {options $all_role_options}
         }
     }
 
@@ -92,11 +97,6 @@
         {label "Attachments"}
         {value "TODO"}
     }
-} -on_request {
-    if { [llength $from_role_options] == 1 } {
-        set sender_role_id [lindex [lindex $from_role_options 0] 1]
-        element set_properties message sender_role_id -mode display
-    }
 } -new_request {
     if { [info exists body_text] } {
         if { ![info exists body_mime_type] } {
@@ -105,6 +105,13 @@
         set body [template::util::richtext::create $body_text $body_mime_type]
         set focus "message.body"
     }
+
+    if { [llength $from_role_options] == 1 } {
+        set sender_role_id [lindex [lindex $from_role_options 0] 1]
+        element set_properties message sender_role_id -mode display
+    } else {
+        element set_properties message sender_role_id -options $from_role_options
+    }
 } -edit_request {
     
     item::get_content \
Index: openacs-4/packages/simulation/www/simplay/message.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/simplay/message.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/simulation/www/simplay/message.tcl	5 Jan 2004 16:00:34 -0000	1.7
+++ openacs-4/packages/simulation/www/simplay/message.tcl	5 Jan 2004 16:10:37 -0000	1.8
@@ -21,6 +21,11 @@
     lappend from_role_options [list [workflow::role::get_element -role_id $role_id -element pretty_name] $role_id]
 }
 
+set all_role_options [list]
+foreach role_id [workflow::role::get_ids -workflow_id $workflow_id] {
+    lappend all_role_options [list [workflow::role::get_element -role_id $role_id -element pretty_name] $role_id]
+}
+
 set to_role_options [list]
 foreach role_id [workflow::role::get_ids -workflow_id $workflow_id] {
     lappend to_role_options [list [workflow::role::get_element -role_id $role_id -element pretty_name] $role_id]
@@ -63,7 +68,7 @@
         {item_id:key}
         {sender_role_id:text(select)
             {label "From"}
-            {options $from_role_options}
+            {options $all_role_options}
         }
     }
 
@@ -92,11 +97,6 @@
         {label "Attachments"}
         {value "TODO"}
     }
-} -on_request {
-    if { [llength $from_role_options] == 1 } {
-        set sender_role_id [lindex [lindex $from_role_options 0] 1]
-        element set_properties message sender_role_id -mode display
-    }
 } -new_request {
     if { [info exists body_text] } {
         if { ![info exists body_mime_type] } {
@@ -105,6 +105,13 @@
         set body [template::util::richtext::create $body_text $body_mime_type]
         set focus "message.body"
     }
+
+    if { [llength $from_role_options] == 1 } {
+        set sender_role_id [lindex [lindex $from_role_options 0] 1]
+        element set_properties message sender_role_id -mode display
+    } else {
+        element set_properties message sender_role_id -options $from_role_options
+    }
 } -edit_request {
     
     item::get_content \