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]]]
Index: openacs-4/packages/dotlrn/www/admin/users-chunk.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/users-chunk.adp,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/dotlrn/www/admin/users-chunk.adp 5 Jun 2002 05:14:57 -0000 1.14
+++ openacs-4/packages/dotlrn/www/admin/users-chunk.adp 5 Jun 2002 05:27:55 -0000 1.15
@@ -18,63 +18,59 @@
%>
-
-
-
-
-
- User |
- Access |
- Guest? |
- Site-wide Admin? |
-
+
+
-
-
+
Index: openacs-4/packages/dotlrn/www/admin/users.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/users.adp,v
diff -u -r1.24 -r1.25
--- openacs-4/packages/dotlrn/www/admin/users.adp 2 Jun 2002 13:41:25 -0000 1.24
+++ openacs-4/packages/dotlrn/www/admin/users.adp 5 Jun 2002 05:27:55 -0000 1.25
@@ -42,11 +42,11 @@
@control_bar@
-
+
-
+
|