Index: openacs-4/packages/dotlrn-portlet/www/dotlrn-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-portlet/www/dotlrn-portlet.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/dotlrn-portlet/www/dotlrn-portlet.tcl	7 Mar 2002 20:58:53 -0000	1.4
+++ openacs-4/packages/dotlrn-portlet/www/dotlrn-portlet.tcl	13 Mar 2002 21:59:13 -0000	1.5
@@ -14,10 +14,13 @@
 set pretty_name [dotlrn_community::get_community_name $community_id]
 set subcomm_pretty_plural   [ad_parameter subcommunities_pretty_plural dotlrn]
 set description [dotlrn_community::get_community_description $community_id]
-set has_subcomm_p \
-        [dotlrn_community::has_subcommunity_p -community_id $community_id]
 
 set subcomm_data \
         [dotlrn_community::get_subcomm_chunk -community_id $community_id]
 
 
+if {[empty_string_p $subcomm_data]} {
+    set has_subcomm_p 0
+} else {
+    set has_subcomm_p 1
+}