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.6 -r1.6.2.1
--- openacs-4/packages/dotlrn/www/dotlrn-main-portlet-oracle.xql	17 Jun 2002 21:57:20 -0000	1.6
+++ openacs-4/packages/dotlrn/www/dotlrn-main-portlet-oracle.xql	17 Oct 2002 12:29:16 -0000	1.6.2.1
@@ -10,11 +10,11 @@
                    decode(dotlrn_communities.community_type, 'dotlrn_community', 'dotlrn_community',
                                                              'dotlrn_club', 'dotlrn_club',
                                                              'dotlrn_class_instance') as simple_community_type,
+                   decode(dotlrn_community_admin_p(dotlrn_communities.community_id, dotlrn_member_rels_approved.user_id),'f',0,1) as admin_p,	
                    tree.tree_level(dotlrn_communities.tree_sortkey) as tree_level,
                    nvl((select tree.tree_level(dotlrn_community_types.tree_sortkey)
                         from dotlrn_community_types
-                        where dotlrn_community_types.community_type = dotlrn_communities.community_type), 0) as community_type_level,
-                   acs_permission.permission_p(dotlrn_communities.community_id, :user_id, 'admin') as admin_p
+                        where dotlrn_community_types.community_type = dotlrn_communities.community_type), 0) as community_type_level
             from dotlrn_communities,
                  dotlrn_member_rels_approved
             where dotlrn_communities.community_id = dotlrn_member_rels_approved.community_id