Index: openacs-4/packages/dotlrn/www/admin/user.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/user.xql,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/dotlrn/www/admin/user.xql	29 Mar 2002 19:38:26 -0000	1.4
+++ openacs-4/packages/dotlrn/www/admin/user.xql	23 Nov 2017 09:39:47 -0000	1.5
@@ -18,4 +18,59 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="select_dotlrn_user_info">
+        <querytext>
+            select dotlrn_users.*, guest_p
+            from dotlrn_users left outer join dotlrn_guest_status
+              on dotlrn_guest_status.user_id = dotlrn_users.user_id
+            where dotlrn_users.user_id = :user_id
+        </querytext>
+    </fullquery>
+
+    <fullquery name="select_portrait_info">      
+        <querytext>
+            select cr_items.live_revision as revision_id,
+                   coalesce(cr_revisions.title, 'view this portrait') as portrait_title
+            from acs_rels,
+                 cr_items,
+                 cr_revisions
+            where acs_rels.object_id_two = cr_items.item_id
+            and cr_items.live_revision = cr_revisions.revision_id
+            and acs_rels.object_id_one = :user_id
+            and acs_rels.rel_type = 'user_portrait_rel'
+        </querytext>
+    </fullquery>
+
+    <fullquery name="select_member_classes">
+        <querytext>
+            select dotlrn_class_instances_full.*,
+                   dotlrn_member_rels_approved.rel_type,
+                   dotlrn_member_rels_approved.role,
+                   '' as role_pretty_name
+            from dotlrn_class_instances_full,
+                 dotlrn_member_rels_approved
+            where dotlrn_member_rels_approved.user_id = :user_id
+            and dotlrn_member_rels_approved.community_id = dotlrn_class_instances_full.class_instance_id
+            order by dotlrn_class_instances_full.department_name,
+                     dotlrn_class_instances_full.department_key,
+                     dotlrn_class_instances_full.pretty_name,
+                     dotlrn_class_instances_full.community_key
+        </querytext>
+    </fullquery>
+
+    <fullquery name="select_member_clubs">
+        <querytext>
+            select dotlrn_clubs_full.*,
+                   dotlrn_member_rels_approved.rel_type,
+                   dotlrn_member_rels_approved.role,
+                   '' as role_pretty_name
+            from dotlrn_clubs_full,
+                 dotlrn_member_rels_approved
+            where dotlrn_member_rels_approved.user_id = :user_id
+            and dotlrn_member_rels_approved.community_id = dotlrn_clubs_full.club_id
+            order by dotlrn_clubs_full.pretty_name,
+                     dotlrn_clubs_full.community_key
+        </querytext>
+    </fullquery>
+    
 </queryset>