Index: openacs-4/packages/workflow/tcl/role-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/workflow/tcl/role-procs.tcl,v
diff -u -r1.18 -r1.19
--- openacs-4/packages/workflow/tcl/role-procs.tcl	23 Jan 2004 11:02:27 -0000	1.18
+++ openacs-4/packages/workflow/tcl/role-procs.tcl	26 Jan 2004 12:33:22 -0000	1.19
@@ -521,11 +521,15 @@
 }
 
 ad_proc -private workflow::role::get_ids {
+    {-all:boolean}
     {-workflow_id:required}
+    {-parent_action_id {}}
 } {
     Get the IDs of all the roles in the right order.
 
     @param workflow_id The id of the workflow to get roles for.
+    
+    @param parent_action_id No meaning. Provided for compatibility with similar procs for actions and states.
 
     @return A list of role IDs.
 
@@ -690,7 +694,7 @@
 } {
     set result [list]
 
-    foreach role_id [workflow::get_roles -workflow_id $workflow_id] {
+    foreach role_id [workflow::get_roles -all -workflow_id $workflow_id] {
         if { [empty_string_p $ignore_role_id] || ![string equal $ignore_role_id $role_id] } {
             lappend result [workflow::role::get_element -role_id $role_id -element short_name]
         }