Index: openacs-4/packages/dotlrn/www/admin/user-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/user-oracle.xql,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/dotlrn/www/admin/user-oracle.xql	3 Nov 2003 10:46:45 -0000	1.10
+++ openacs-4/packages/dotlrn/www/admin/user-oracle.xql	20 Apr 2004 21:13:21 -0000	1.11
@@ -5,11 +5,11 @@
 
     <fullquery name="select_dotlrn_user_info">
         <querytext>
-            select dotlrn_users.*,
-                   acs_permission.permission_p(:root_object_id, dotlrn_users.user_id, 'admin') as site_wide_admin_p,
-                   acs_permission.permission_p(:dotlrn_package_id, :user_id, 'read_private_data') as read_private_data_p
-            from dotlrn_users
+            select dotlrn_users.*, guest_p,
+                   acs_permission.permission_p(:root_object_id, dotlrn_users.user_id, 'admin') as site_wide_admin_p
+            from dotlrn_users, dotlrn_guest_status
             where dotlrn_users.user_id = :user_id
+              and dotlrn_guest_status.user_id(+) = dotlrn_users.user_id
         </querytext>
     </fullquery>