Index: openacs-4/packages/workflow/www/admin/action-ae.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/workflow/www/admin/action-ae.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/workflow/www/admin/action-ae.tcl	4 Jan 2007 09:04:10 -0000	1.2
+++ openacs-4/packages/workflow/www/admin/action-ae.tcl	11 Apr 2010 00:52:53 -0000	1.3
@@ -30,6 +30,10 @@
 	[list "parallel" "parallel"] \
 ]
 
+set role_options [workflow::role::get_options -workflow_id $workflow_id]
+set role_options [linsert $role_options 0 [list "" ""]]
+set privilege_options {{read read} {write write} {admin admin}}
+
 ad_form -name "add_edit" -form {
     action_id:key
     {short_name:text(text) {label {Short Name:}}}
@@ -43,6 +47,8 @@
     {always_enabled_p:text(radio) {label {Always Enabled?}} {options $yes_no_options}}
     {enabled_states:text(checkbox),multiple,optional {label {Enabled States:}} {options $state_options}}
     {assigned_states:text(checkbox),multiple,optional {label {Assigned States:}} {options $state_options}}
+    {assigned_role:text(select),optional {label {Assigned Role:}} {options $role_options}}
+    {privileges:text(multiselect),multiple,optional {label {Privileges:}} {options $privilege_options}}
     {sub:text(submit) {label {Submit}}}
 } -new_data {
 
@@ -59,6 +65,9 @@
     set update_array(assigned_state_ids) $assigned_states
     set update_array(new_state_id) $new_state_id
 
+    set update_array(assigned_role) $assigned_role
+    set update_array(privileges) $privileges
+    
     #callbacks
     set callback_list [list]
     foreach callback_name [split $callbacks "\n"] {
@@ -99,6 +108,9 @@
     set update_array(assigned_state_ids) $assigned_states
     set update_array(new_state_id) $new_state_id
 
+    set update_array(assigned_role) $assigned_role
+    set update_array(privileges) $privileges
+
     #callbacks
     set callback_list [list]
     foreach callback_name [split $callbacks "\n"] {
@@ -144,6 +156,9 @@
     set new_state              $action_info(new_state)
     set new_state_id           $action_info(new_state_id)
     set callbacks              [join $action_info(callbacks) "\n"]
+    
+    set assigned_role          $action_info(assigned_role)
+    set privileges             $action_info(privileges)
 
 } -after_submit {
     ad_returnredirect $return_url