Index: openacs-4/packages/dotlrn/www/dotlrn-main-portlet.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/dotlrn-main-portlet.adp,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/dotlrn/www/dotlrn-main-portlet.adp	14 Feb 2002 19:43:11 -0000	1.6
+++ openacs-4/packages/dotlrn/www/dotlrn-main-portlet.adp	25 Feb 2002 20:47:15 -0000	1.7
@@ -22,7 +22,7 @@
   <%= [ad_parameter clubs_pretty_plural] %>
   <ul>
     <multiple name="clubs">
-      <li><a href="@clubs.url@">@clubs.pretty_name@</a></li>
+      <li><a href="@clubs.url@">@clubs.pretty_name@</a> <if @clubs.admin_p@ eq t>- <a href="@clubs.url@one-community-admin">admin</a></if></li>
     </multiple>
   </ul>
 </if>
Index: openacs-4/packages/dotlrn/www/dotlrn-main-portlet.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/Attic/dotlrn-main-portlet.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/dotlrn/www/dotlrn-main-portlet.xql	23 Jan 2002 04:58:08 -0000	1.1
+++ openacs-4/packages/dotlrn/www/dotlrn-main-portlet.xql	25 Feb 2002 20:47:15 -0000	1.2
@@ -4,7 +4,8 @@
   <fullquery name="select_classes">
     <querytext>
       select dotlrn_class_instances_full.pretty_name,
-             dotlrn_class_instances_full.url
+             dotlrn_class_instances_full.url,
+             acs_permission.permission_p(community_id, :user_id, 'admin') as admin_p
       from dotlrn_class_instances_full,
            dotlrn_member_rels_full
       where dotlrn_member_rels_full.user_id = :user_id
@@ -15,7 +16,8 @@
   <fullquery name="select_clubs">
     <querytext>
       select dotlrn_clubs_full.pretty_name,
-             dotlrn_clubs_full.url
+             dotlrn_clubs_full.url,
+             acs_permission.permission_p(community_id, :user_id, 'admin') as admin_p
       from dotlrn_clubs_full,
            dotlrn_member_rels_full
       where dotlrn_member_rels_full.user_id = :user_id