Index: openacs-4/contrib/obsolete-packages/acs-workflow/tcl/display-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/acs-workflow/tcl/display-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/obsolete-packages/acs-workflow/tcl/display-procs.tcl	13 Mar 2001 22:59:27 -0000	1.1
+++ openacs-4/contrib/obsolete-packages/acs-workflow/tcl/display-procs.tcl	19 Nov 2001 18:25:09 -0000	1.2
@@ -93,18 +93,6 @@
 	boolean {
 	    set value [ad_decode $value "t" "Yes" "No"]
 	}
-	number {
-	    switch $attribute(wf_datatype) {
-		party {
-		    db_1row party_info {
-			select acs_object.name(party_id) as name
-			from   parties
-			where  party_id = :value
-		    }
-		    set value "[ad_present_user $value $name]"
-		}
-	    }
-	}
     }
     return $value
 }
@@ -115,7 +103,8 @@
 
 ad_proc wf_assignment_widget {
     {-name ""}
-    transition_info
+    -case_id
+    role_key
 } {
     Returns an HTML fragment containing a form element for entering the value of an attribute.
     <p>
@@ -124,12 +113,22 @@
     @author Lars Pind (lars@pinds.com)
     @creation-date 10 July, 2000
 } {
-    array set transition $transition_info
-    
     if { [empty_string_p $name] } {
-	set name "assignments.$transition(transition_key)"
+	set name "assignments.$role_key"
     }
 
+    if { [info exists case_id] && ![empty_string_p $case_id] } {
+	set current_assignments [db_list assignment_select "
+	    select ca.party_id
+	      from wf_case_assignments ca, wf_cases c
+	     where c.case_id = :case_id
+	       and ca.role_key = :role_key
+	       and ca.workflow_key = c.workflow_key
+	"]  
+    } else {
+	set current_assignments {}
+    }
+
     set widget "<select name=\"$name\" multiple size=10>"
     db_foreach party_with_at_least_one_member {
 	select p.party_id, 
@@ -142,7 +141,7 @@
 	            where  m.party_id = p.party_id
 	            and    u.user_id = m.member_id)
     } {
-	append widget "<option value=\"$party_id\">$name $email</option>"
+	append widget "<option value=\"$party_id\" [ad_decode [lsearch -exact $current_assignments $party_id] -1 "" "selected"]>$name $email</option>"
     }
     append widget "</select>"