Index: openacs-4/packages/dotlrn/www/admin/users-chunk-medium.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/users-chunk-medium.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/dotlrn/www/admin/users-chunk-medium.tcl	5 Jun 2002 05:09:01 -0000	1.9
+++ openacs-4/packages/dotlrn/www/admin/users-chunk-medium.tcl	5 Jun 2002 05:27:55 -0000	1.10
@@ -19,7 +19,7 @@
     @creation-date 2002-01-30
     @version $Id$
 } -query {
-    {section ""}
+    {section A}
 } -properties {
     user_id:onevalue
     control_bar:onevalue
@@ -38,17 +38,10 @@
     set referer "[dotlrn::get_admin_url]/users"
 }
 
-set default_section A
 set dimension_list {A B C D E F G H I J K L M N O P Q R S T U V W X Y Z}
-
 foreach dimension $dimension_list {
-    if {[empty_string_p $section]} {
-        set section $default_section
-    }
-
     lappend dimensions [list $dimension $dimension {}]
 }
-
 lappend dimensions [list Other Other {}]
 
 set control_bar [portal::dimensional [list [list section {} $section $dimensions]]]