Index: openacs-4/contrib/packages/project-manager/www/process-task-add-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/Attic/process-task-add-edit.tcl,v
diff -u -r1.8.2.2 -r1.8.2.3
--- openacs-4/contrib/packages/project-manager/www/process-task-add-edit.tcl	2 Jul 2004 23:13:49 -0000	1.8.2.2
+++ openacs-4/contrib/packages/project-manager/www/process-task-add-edit.tcl	26 Oct 2004 01:21:11 -0000	1.8.2.3
@@ -61,20 +61,10 @@
 set package_id [ad_conn package_id]
 set user_id    [ad_maybe_redirect_for_registration]
 
-set subsite_id [ad_conn subsite_id]
-set user_group_id [application_group::group_id_from_package_id \
-                       -package_id $subsite_id]
-
-# -----------
-# permissions
-# -----------
-permission::require_permission -party_id $user_id -object_id $package_id -privilege read
-
 # ------------------------------------------------------------
 # if process_task_id is set, then we are editing process tasks
 # ------------------------------------------------------------
 
-
 if {[exists_and_not_null process_task_id]} {
 
     set edit_p 1
@@ -132,25 +122,9 @@
 
 set roles_list_of_lists [pm::role::select_list_filter]
 
-set assignee_list_of_lists [db_list_of_lists get_assignees {
-    select
-    p.first_names || ' ' || p.last_name as name,
-    p.person_id
-    FROM
-    persons p,
-    acs_rels r,
-    membership_rels mr
-    WHERE
-    r.object_id_one = :user_group_id and
-    mr.rel_id = r.rel_id and
-    p.person_id = r.object_id_two and
-    member_state = 'approved'
-    ORDER BY
-    p.first_names, p.last_name
-}]
+set assignee_list_of_lists [pm::util::subsite_assignees_list_of_lists]
 
 
-
 template::multirow create num process_task_id one_line description work work_min work_max ordering checked assignee_html
 
 for {set i 1} {$i <= $number} {incr i} {