Index: openacs-4/packages/workflow/www/admin/action-ae.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/workflow/www/admin/action-ae.adp,v diff -u -r1.2 -r1.3 --- openacs-4/packages/workflow/www/admin/action-ae.adp 4 Jan 2007 09:04:10 -0000 1.2 +++ openacs-4/packages/workflow/www/admin/action-ae.adp 11 Apr 2010 00:52:53 -0000 1.3 @@ -58,6 +58,8 @@ + Assigned Role: + Privileges:
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 -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