Index: openacs-4/packages/project-manager/www/project-assign-edit.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/project-assign-edit.tcl,v diff -u -N -r1.10 -r1.11 --- openacs-4/packages/project-manager/www/project-assign-edit.tcl 30 Jul 2005 18:32:36 -0000 1.10 +++ openacs-4/packages/project-manager/www/project-assign-edit.tcl 30 Jul 2005 19:05:41 -0000 1.11 @@ -17,11 +17,6 @@ } -errors { } - -# Validate that search_user_id is on persons table to get the user name -ad_return_complaint 1 "[template::form is_valid search_user]" - - # The unique identifier for this package. set package_id [ad_conn package_id] @@ -66,9 +61,18 @@ set assigned($party_id-$role_id) 1 } + set assignee_list_of_lists [pm::util::subsite_assignees_list_of_lists] +if { ![empty_string_p $search_user_id]} { + # Get the user name + set fullname [db_string get_user_fullname { } -default ""] + if { ![empty_string_p $fullname] && [string equal [lsearch $assignee_list_of_lists [list $fullname $search_user_id]] "-1"] } { + lappend assignee_list_of_lists [list $fullname $search_user_id] + } +} + set html "
" foreach role_list $roles_list_of_lists { @@ -111,16 +115,3 @@ append html "
$export_vars
" - -ad_form -name search_user -form { - {project_item_id:text(hidden) - {value $project_item_id} - } - {return_url:text(hidden) - {value $return_url} - } - {search_user_id:party_search(party_search),optional - {label "Search for User:"} - } -} -