Index: openacs-4/packages/dotlrn/www/dotlrn-main-portlet-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/dotlrn-main-portlet-oracle.xql,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/dotlrn/www/dotlrn-main-portlet-oracle.xql	3 Jun 2003 18:35:47 -0000	1.8
+++ openacs-4/packages/dotlrn/www/dotlrn-main-portlet-oracle.xql	29 Jun 2004 10:18:00 -0000	1.9
@@ -9,6 +9,7 @@
                    dotlrn_community.url(dotlrn_communities_all.community_id) as url,
                    decode(dotlrn_communities_all.community_type, 'dotlrn_community', 'dotlrn_community',
                                                              'dotlrn_club', 'dotlrn_club',
+                                                             'dotlrn_pers_community', 'dotlrn_pers_community',
                                                              'dotlrn_class_instance') as simple_community_type,
                    decode(dotlrn_community_admin_p(dotlrn_communities_all.community_id, dotlrn_member_rels_approved.user_id),'f',0,1) as admin_p,	
                    tree.tree_level(dotlrn_communities_all.tree_sortkey) as tree_level,
@@ -19,6 +20,7 @@
                  dotlrn_member_rels_approved
             where dotlrn_communities_all.community_id = dotlrn_member_rels_approved.community_id
             and dotlrn_member_rels_approved.user_id = :user_id
+            $archived_clause
             order by dotlrn_communities_all.tree_sortkey
         </querytext>
     </fullquery>