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.8 -r1.9
--- openacs-4/packages/dotlrn/www/admin/users-search.tcl	6 Mar 2002 00:08:02 -0000	1.8
+++ openacs-4/packages/dotlrn/www/admin/users-search.tcl	6 Mar 2002 00:29:56 -0000	1.9
@@ -95,10 +95,10 @@
     -value $access_level
 
 element create user_search private_data_p \
-    -label "Can Read Private Data?" \
+    -label "Guest?" \
     -datatype text \
     -widget radio \
-    -options {{Any any} {Yes yes} {No no}} \
+    -options {{Any any} {Yes f} {No t}} \
     -value $private_data_p
 
 element create user_search role \
@@ -180,12 +180,10 @@
     }
 
     switch -exact $private_data_p {
-        "yes" {
-            lappend wheres "\'t\' = acs_permission.permission_p(:package_id, dotlrn_users.user_id, 'read_private_data')"
+        any {}
+        default {
+            lappend wheres ":private_data_p = acs_permission.permission_p(:package_id, dotlrn_users.user_id, 'read_private_data')"
         }
-        "no" {
-            lappend wheres "\'f\' = acs_permission.permission_p(:package_id, dotlrn_users.user_id, 'read_private_data')"
-        }
     }
 
     if {![empty_string_p $last_visit_greater]} {