Index: openacs-4/packages/dotlrn/www/admin/users-search.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/users-search.tcl,v
diff -u -r1.18 -r1.19
--- openacs-4/packages/dotlrn/www/admin/users-search.tcl	2 Jun 2002 13:56:14 -0000	1.18
+++ openacs-4/packages/dotlrn/www/admin/users-search.tcl	18 Jun 2002 15:56:30 -0000	1.19
@@ -189,18 +189,21 @@
     switch -exact $can_browse_p {
         any {}
         1 {
-            lappend wheres "'t' = acs_permission.permission_p(:package_id, dotlrn_users.user_id, 'dotlrn_browse')"
+            lappend wheres "exists (select 1 from acs_permissions where object_id = :package_id and grantee_id = dotlrn_users.user_id and privilege = 'dotlrn_browse')"
         }
         0 {
-            lappend wheres "'f' = acs_permission.permission_p(:package_id, dotlrn_users.user_id, 'dotlrn_browse')"
+            lappend wheres "not exists (select 1 from acs_permissions where object_id = :package_id and grantee_id = dotlrn_users.user_id and privilege = 'dotlrn_browse')"
         }
     }
 
     switch -exact $private_data_p {
         any {}
-        default {
-            lappend wheres ":private_data_p = acs_permission.permission_p(:package_id, dotlrn_users.user_id, 'read_private_data')"
+        t {
+            lappend wheres "exists (select 1 from acs_permissions where object_id = :package_id and grantee_id = dotlrn_users.user_id and privilege = 'read_private_data')"
         }
+        f {
+            lappend wheres "not exists (select 1 from acs_permissions where object_id = :package_id and grantee_id = dotlrn_users.user_id and privilege = 'read_private_data')"
+        }
     }
 
     if {![empty_string_p $last_visit_greater]} {