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.7 -r1.8
--- openacs-4/packages/dotlrn-portlet/www/dotlrn-portlet.tcl	30 Apr 2002 21:23:59 -0000	1.7
+++ openacs-4/packages/dotlrn-portlet/www/dotlrn-portlet.tcl	19 May 2002 16:19:46 -0000	1.8
@@ -14,27 +14,22 @@
 #  details.
 #
 
-# www/dotlrn-portlet.tcl
+# dotlrn-portlet/www/dotlrn-portlet.tcl
+
 ad_page_contract {
     The display logic for the dotrn (Group Info)  portlet
 
     @author Arjun Sanyal (arjun@openforce.net)
     @cvs_id $Id$
-} -properties {
-    
 }
 
 array set config $cf	
 set community_id $config(community_id)
 
-set subcomm_pretty_plural   [ad_parameter subcommunities_pretty_plural dotlrn]
+set subcomm_pretty_plural [dotlrn::parameter subcommunities_pretty_plural]
+set subcomm_data [dotlrn_community::get_subcomm_chunk -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 0
+if {![empty_string_p $subcomm_data]} {
     set has_subcomm_p 1
 }