Index: openacs-4/packages/bug-tracker/tcl/bug-tracker-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/tcl/bug-tracker-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/bug-tracker/tcl/bug-tracker-procs.tcl	29 Aug 2002 11:31:48 -0000	1.5
+++ openacs-4/packages/bug-tracker/tcl/bug-tracker-procs.tcl	29 Aug 2002 13:19:02 -0000	1.6
@@ -478,10 +478,25 @@
     #####
     
     ad_proc users_get_options {
+        -package_id
         -include_unassigned:boolean
     } {
-        set users_list [db_list_of_lists users \
-                { select first_names || ' ' || last_name, user_id from cc_users order by first_names, last_name }]
+        if { ![info exists package_id] } {
+            set package_id [ad_conn package_id]
+        }
+
+        # Lars:
+        # This is using acs_permission__permission_p in the where clause of a query
+        # This is a no-no, but I don't know what else to do here
+        set sql {
+            select first_names || ' ' || last_name, 
+                   user_id 
+            from   cc_users 
+            where  acs_permission__permission_p(:package_id, user_id, 'write') = 't'
+            order  by first_names, last_name
+        }
+
+        set users_list [db_list_of_lists users $sql]
     
         if { $include_unassigned_p } {
             set users_list [concat { { "Unassigned" "" } } $users_list]