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.9 -r1.10
--- openacs-4/packages/dotlrn-portlet/www/dotlrn-admin-portlet.tcl	9 May 2002 23:59:52 -0000	1.9
+++ openacs-4/packages/dotlrn-portlet/www/dotlrn-admin-portlet.tcl	12 May 2002 18:15:03 -0000	1.10
@@ -17,33 +17,27 @@
 
 # www/dotlrn-admin-portlet.tcl
 ad_page_contract {
-    The display logic for the dotlrn admin portlet. This shows the 
+    The display logic for the dotlrn admin portlet. This shows the
     "Group Administration" section of the group admin page.
 
     @author Arjun Sanyal (arjun@openforce.net)
     @author Ben Adida (ben@openforce)
     @cvs_id $Id$
 } -properties {
-    
 }
 
 # get some basics
-array set config $cf	
+array set config $cf
 set community_id $config(community_id)
 set dotlrn_admin_p [dotlrn::admin_p]
 set dotlrn_admin_url "[dotlrn::get_url]/admin"
 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]
 
-# get the community info 
+# get the community info
 db_1row select_community_info {}
 
 # get the subcomm info
 set rows [dotlrn_community::get_subcomm_info_list -community_id $community_id]
-template::util::list_of_ns_sets_to_multirow \
-	-rows $rows \
-	-var_name subgroups
-
-
-
+template::util::list_of_ns_sets_to_multirow -rows $rows -var_name subgroups