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.10 -r1.11
--- openacs-4/packages/bug-tracker/tcl/bug-tracker-procs.tcl	11 Sep 2002 14:03:23 -0000	1.10
+++ openacs-4/packages/bug-tracker/tcl/bug-tracker-procs.tcl	13 Sep 2002 10:55:53 -0000	1.11
@@ -198,10 +198,7 @@
             set user_id [ad_conn user_id]
         }
     
-        # temp hack: don't cache
-        return [get_user_prefs_internal $package_id $user_id]
-    
-        #    return [util_memoize "bt_get_user_prefs_internal $package_id $user_id"]
+        return [util_memoize "bug_tracker::get_user_prefs_internal $package_id $user_id"]
     }
     
     
@@ -535,23 +532,23 @@
             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
+        # This picks out users who are already assigned to some bug in this
         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
+            select distinct
+                   u.first_names || ' ' || u.last_name as name,
+                   u.user_id
+            from   bt_bugs b, cc_users u
+            where  b.project_id = :package_id
+            and    u.user_id = b.assignee
+            order  by name
         }
 
         set users_list [db_list_of_lists users $sql]
     
         if { $include_unassigned_p } {
             set users_list [concat { { "Unassigned" "" } } $users_list]
         } 
-        
+
         return $users_list
     }
     
@@ -1068,3 +1065,4 @@
     }
 
 }
+