Index: openacs-4/packages/dotlrn-portlet/www/dotlrn-admin-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-portlet/www/dotlrn-admin-portlet.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/dotlrn-portlet/www/dotlrn-admin-portlet.tcl	12 May 2002 18:15:03 -0000	1.10
+++ openacs-4/packages/dotlrn-portlet/www/dotlrn-admin-portlet.tcl	15 May 2002 05:19:19 -0000	1.11
@@ -34,6 +34,7 @@
 set sub_pretty_name [ad_parameter subcommunities_pretty_name dotlrn]
 set sub_pretty_plural [ad_parameter subcommunities_pretty_plural dotlrn]
 set admin_pretty_name [ad_parameter dotlrn_admin_pretty_name dotlrn]
+set subcommunity_p [dotlrn_community::subcommunity_p -community_id $community_id]
 
 # get the community info
 db_1row select_community_info {}