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.10 -r1.11
--- openacs-4/packages/workflow/tcl/case-procs.tcl	1 Sep 2003 13:43:51 -0000	1.10
+++ openacs-4/packages/workflow/tcl/case-procs.tcl	2 Sep 2003 08:18:26 -0000	1.11
@@ -865,10 +865,10 @@
             array set cur_assignee [lindex $assignees 0]
         }
 
-        if { [uplevel info exists bug:$element] } {
+        if { [uplevel info exists $form_name:$element] } {
             # Set normal value
-            if { [uplevel template::form is_request bug] || [string equal [uplevel [list element get_property bug $element mode]] "display"] } {
-                uplevel [list element set_value bug $element $cur_assignee(party_id)]
+            if { [uplevel template::form is_request $form_name] || [string equal [uplevel [list element get_property $form_name $element mode]] "display"] } {
+                uplevel [list element set_value $form_name $element $cur_assignee(party_id)]
             }
             
             # Set display value
@@ -1129,7 +1129,7 @@
     if { !$permission_p } {
         set privileges [concat "admin" [workflow::action::get_privileges -action_id $action_id]]
         foreach privilege $privileges {
-            if { [permission::permission_p -object_id $object_id -privilege $privilege] } {
+            if { [permission::permission_p -object_id $object_id -privilege $privilege -party_id $user_id] } {
                 set permission_p 1
                 break
             }