Index: openacs-4/packages/workflow/tcl/case-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/workflow/tcl/case-procs.tcl,v
diff -u -r1.32 -r1.33
--- openacs-4/packages/workflow/tcl/case-procs.tcl	20 Apr 2004 21:13:56 -0000	1.32
+++ openacs-4/packages/workflow/tcl/case-procs.tcl	14 May 2004 13:56:18 -0000	1.33
@@ -1037,17 +1037,24 @@
     {-case_id:required}
     {-form_name:required}
     {-prefix "role_"}
+    {-role_ids {}}
 } {
     Get the assignee widget for use with ad_form for this role.
 
     @param case_id the ID of the case.
     @param role_id the ID of the role.
+    @param role_ids Only add assignee widgets for the roles supplied. If no roles are
+                    specified then all roles are used.
 
     @author Lars Pind (lars@collaboraid.biz)
 } {
     set workflow_id [workflow::case::get_element -case_id $case_id -element workflow_id]
-    set roles [list]
-    foreach role_id [workflow::get_roles -workflow_id $workflow_id] {
+
+    if { [empty_string_p $role_ids] } {
+        set role_ids [workflow::get_roles -workflow_id $workflow_id]
+    }
+
+    foreach role_id $role_ids {
         ad_form -extend -name $form_name -form [list [get_assignee_widget -case_id $case_id -role_id $role_id -prefix $prefix]]
     }
 }