Index: openacs-4/packages/dotlrn-portlet/www/dotlrn-admin-portlet.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-portlet/www/dotlrn-admin-portlet.adp,v
diff -u -r1.15 -r1.16
--- openacs-4/packages/dotlrn-portlet/www/dotlrn-admin-portlet.adp	16 May 2002 18:27:59 -0000	1.15
+++ openacs-4/packages/dotlrn-portlet/www/dotlrn-admin-portlet.adp	19 May 2002 16:19:46 -0000	1.16
@@ -58,15 +58,13 @@
         <multiple name="subgroups">
           <li>
             <a href="@subgroups.url@">@subgroups.pretty_name@</a>
-            <small>
-              [
-                <a href="@subgroups.url@one-community-admin">Admin</a>
-                |
-                <a href="subcommunity-edit?community_id=@subgroups.community_id@">Rename</a>
-                |
-                <a href="subcommunity-archive?community_id=@subgroups.community_id@">Archive</a>
-              ]
-            </small>
+            [<small>
+              <a href="@subgroups.url@one-community-admin">Admin</a>
+              |
+              <a href="subcommunity-edit?community_id=@subgroups.community_id@">Rename</a>
+              |
+              <a href="subcommunity-archive?community_id=@subgroups.community_id@">Archive</a>
+            </small>]
           </li>
         </multiple>
         <br>
Index: openacs-4/packages/dotlrn-portlet/www/dotlrn-members-portlet.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-portlet/www/dotlrn-members-portlet.adp,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/dotlrn-portlet/www/dotlrn-members-portlet.adp	15 Apr 2002 19:52:52 -0000	1.8
+++ openacs-4/packages/dotlrn-portlet/www/dotlrn-members-portlet.adp	19 May 2002 16:19:46 -0000	1.9
@@ -33,11 +33,11 @@
       <i>@users.role@</i>
 
     <if @admin_p@ eq 1>
-      <small>[<a href="deregister?user_id=@users.user_id@&amp;referer=members">deregister</a>]</small>
+      [<small> <a href="deregister?user_id=@users.user_id@&amp;referer=members">deregister</a> </small>]
     </if>
     <else>
       <if @user_id@ eq @users.user_id@>
-        <small>[<a href="deregister?">deregister</a>]</small>
+        [<small> <a href="deregister?">deregister</a> </small>]
       </if>
     </else>
     </li>
@@ -54,7 +54,6 @@
     </form>
 </if>
 
-
 </if>
 <else>
   <br>
Index: openacs-4/packages/dotlrn-portlet/www/dotlrn-members-staff-portlet.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-portlet/www/dotlrn-members-staff-portlet.adp,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/dotlrn-portlet/www/dotlrn-members-staff-portlet.adp	29 Mar 2002 19:20:50 -0000	1.7
+++ openacs-4/packages/dotlrn-portlet/www/dotlrn-members-staff-portlet.adp	19 May 2002 16:19:46 -0000	1.8
@@ -80,5 +80,5 @@
 
 <br>
 
-<a href=members>Student List</a>
+<a href="members">Student List</a>
 
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
 }